[Resolvido]Digitar nome completo ou parte do nome em uma Caixa de Texto e Listar em uma Caixa de Listagem

Montei em um formulário(frmSIGAT) uma Caixa de Texto e uma Caixa de Listagem(com os campos: CódigoCadastro, Comprador, CpfComprador e SIGAT) para que quando digitar o nome ou parte do nome apareça na minha Caixa de Listagem e não está dando certo, o que está faltando? Falta algum código sql ligando as duas caixas e os dados?

Na Caixa de Texto = ctnome
coloquei nos eventos:

Private Sub ctnome_AfterUpdate()
Me.lstComprador.Requery
End Sub

Private Sub ctnome_Change()
Me.Recalc
SendKeys "{F2}"
End Sub

No Formulário = frmSIGAT
coloquei no evento:

Private Sub Form_Load()
Me.ctnome.SetFocus
End Sub

Na Caixa de Listagem = lstcomprador
SELECT tblCadastro.CódigoCadastro, tblCadastro.SIGAT, tblCadastro.Comprador, tblCadastro.CpfComprador FROM tblCadastro ORDER BY [CódigoCadastro], [SIGAT], [Comprador], [CpfComprador];

Att

Ghunnar

Bom dia, Ghunnar
O texto SQL de origem da caixa de listagem não tem dependência do que escreve na caixa de texto.
Para que tenha dependência, deve ter cláusula WHERE

Bom dia Ghunnar
tem esse exemplo do mestre João Paulo, parece ser o que vc procura
Abraço..

Obrigado Fernando.

Alexandre utilizei a expressão que você indicou WHERE da seguinte forma
SELECT tblCadastro.CódigoCadastro, tblCadastro.SIGAT, tblCadastro.Comprador, tblCadastro.CpfComprador FROM tblCadastro WHERE Comprador Like ctnome & "*";

e deu certo....beleza!

Obrigado.

Ghunnar