Senhores, estou com um problema. No código abaixo  busco a relação de todos os materiais que estão no campo (Localização1)que corresponde a CX 97, só que a CX 97 tambem esta locado no campo (Localização2) da mesma tabela. Como que eu posso mostra-lo? Fico grato antecipadamente.



Set BdBaixas = OpenDatabase(ThisWorkbook.Path & "Materiais.mdb")
Sql = "SELECT Localização1,Localização2 FROM Localizacao WHERE Localização1,Localização2 Like '*" & FrmTeste.TxtPorCaixa.text & "*'" & "GROUP BY Localização1 ORDER BY Localização1"
Set TbCX = BdBaixas.OpenRecordset(Sql)

Do While Not TbCX.EOF
Plan110.Range("A" & Ln3 - 1) = TbCX("Localização1")

Sql_1 = "SELECT Código,Descrição,Quantidade,Unidade FROM Localizacao WHERE Localização1 Like '*" & FrmTeste.TxtPorCaixa.text & "*'" & "ORDER BY Código,Descrição,Quantidade,Unidade"
Set TbDados = BdBaixas.OpenRecordset(Sql_1)

Do While Not TbDados.EOF
Plan110.Range("B" & Ln3 - 1) = TbDados("Código")
Plan110.Range("C" & Ln3 - 1) = TbDados("Descrição")
Plan110.Range("D" & Ln3 - 1) = TbDados("Unidade")
Plan110.Range("E" & Ln3 - 1) = TbDados("Quantidade")