[Resolvido]Select em uma ComboBox

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

Set rescons = base.OpenRecordset("tbl_CQVent4")
If ([Form_frmLancamentoHs].CQ = rescons!CQ) Then
[Form_frmLancamentoHs].VentTeste = rescons!Ventilacao

Voce está carregando um recordset com dados de uma tabela...

Pergunto: Esta tabela tem apenas um registro?

Porque se tem mais de um registro essa comparação não dará certo pois não percorre todos os registros constantes do recordser

AI no caso teria que executar um loop no recordset.


Cumprimentos.