[Resolvido]Como se faz uma pesquisa de uma Listbox

Pessoal o código que tenho é esse:

Option Compare Database
Option Explicit
Dim VarTecla
Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
Me.lst_nomes = ""
End Sub
Private Sub txt_nome_AfterUpdate()
lst_nomes.Requery
End Sub
Private Sub txt_nome_Change()
If VarTecla = 1 Then
VarTecla = 0
Else
Me.Recalc
Me.txt_nome.SelStart = 255
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
VarTecla = 1
End If
End Sub

Estou a fazer o mesmo que o Piloto fez num exemplo de pesquisa avançada infelizmente não estou a conseguir a fazer pesquisa.
Alguém sabe porque?

Boa tarde......

Veja o exemplo em anexo....estude-o com calma.

Abra o FrmCliente, pressione o botão " localizar Cliente".

Cada código tem o seu lugar certo para ficar, senão...........não funfa mesmo.

Bons estudo e sucesso a ti.

Obrigado Silvio só mais uma dúvida não é possível manter o cabeçalho?

Qual cabeçalho ?

Como vou explicar... exemplo

  Produto | Preço | Stock
  -----------|--------- |------
  -----------|--------- |------


Tipo para não limpar esses campos.

Silvio já resolvi o problema mais uma vez muito obrigado!

Ele fica limpo sim, mas ao preencher ele aparece.

O que pode ser feito, é criar label´s e posicionar as mesmas nos referidos campos que irão aparecer.

Para remover, os cabeçalhos da Lstbox e deixar apenas as Label´s criadas, você tem que ir em:

a- com a lstbox selecionada
b- folha de propriedades
c-aba formato
d- cabeçalhos de colunas --> mudar de sim para não.

Bom se resolveu.......ótimo !!

Abraços e sucesso a ti.

Vou tentar fazer assim também para ver como fica obrigado!

Cumprimentos