Select em uma ComboBox

[diegovirgilio]

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

[Jhonas]

depois de efetuar o select, voce deve jogar os dados num combobox

exemplos

http://www.google.com.br/search?q=populand...combobox+delphi

abraço