Boa noite meus amigos, gostaria de uma ajudinha de vocês, preciso fazer um select onde compare o dado de uma textBox do Formulário, faça um select e preencha a ComboBox com campo da tabela, mas minha rotina não esta funcionando gostaria de saber como faço pra solucionar essa questão. Set base = CurrentDb 'Verifica se não existe já uma consulta que se chama ConsLog, e se for o caso apagá-la detecte = 0 If base.QueryDefs.Count > 0 Then For i = 0 To base.QueryDefs.Count - 1 If base.QueryDefs(i).Name = "ConsLog" Then detecte = 1 Next i If detecte = 1 Then base.QueryDefs.Delete "ConsLog" End If 'Cria a consulta ConsLog Set cons = base.CreateQueryDef("ConsLog") cons.sql = "SELECT tbl_CQVent4.Ventilacao, tbl_CQVent3.Ventilacao, tbl_CQVent2.Ventilacao, tbl_CQVent1.Ventilacao as CQ FROM tbl_CQVent4, tbl_CQVent3, tbl_CQVent2, tbl_CQVent1 WHERE ((tbl_CQVent4.CQ = '" & Me.CQ & "') AND (tbl_CQVent3.CQ = '" & Me.CQ & "') AND (tbl_CQVent2.CQ = '" & Me.CQ & "') AND (tbl_CQVent1.CQ = '" & Me.CQ & "') ;" If rescons.RecordCount > 0 Then Set rescons = base.OpenRecordset("tbl_CQVent4") If ([Form_frmLancamentoHs].CQ = rescons!CQ) Then [Form_frmLancamentoHs].VentTeste = rescons!Ventilacao ElseIf ([Form_frmLancamentoHs].CQ = rescons!CQ2) Then cons.sql = "SELECT tblCQVent3.Ventilacao, tblCQVent3.Comentario FROM tblCQVent3;" ElseIf ([Form_frmLancamentoHs].CQ = rescons!CQ3) Then cons.sql = "SELECT tblCQVent4.Ventilacao, tblCQVent4.Comentario FROM tblCQVent4;" ElseIf ([Form_frmLancamentoHs].CQ = rescons!CQ4) Then cons.sql = "SELECT tblCQVent2.Ventilacao, tblCQVent2.Comentario FROM tblCQVent2;" [Form_frmLancamentoHs].VentTeste = rescons!Ventilacao Else MsgBox "Esse CQ pode não estar cadastrado.", vbInformation End If End If