[Resolvido]problemas com listbox

Olá bom dia,

tenho uma tabela chamada tblfornecedor(codigoFornecedor, RazaoSocial...)
tambem tenho um formulario chamado frmPesquisaFornecedor, nele eu fiz um campo chamado Nome e uma caixa de listagem chamado lista5.

Minha duvida:
Não estou conseguindo fazer o filtro na listbox.Estou usando estes codigos

Na origem da linha:

select tblfornecedor.codigoFornecedor,tblfornecedor from tblfornecedor where (tblfornecedor.RazaoSocial) like[Forms![PesquisaFornecedor.[RazaoSocial] & "*"));

No campo Nome adcionei o seguinte codigo

Apos atualizar: Me.Lista5.Requery
Apos Alterar : me.recalc

Porem não esta acontecendo nada.

Alguem poderia me dar uma auxilio por favor?

Obrigado Noberto pela resposta
Uma duvida:

Fiz conforme me orientou no evento Apos atualizar

If Not IsNull(PesquisaFornecedor) Then
Dim rs As Object
Set rs = Me.recorset.Clone
rs.FindFirst "[CodigoFornecedor]=" & Str(Me![PesquisaFornecedor])
Me.Bookmark = rs.Bookmark
Set rs = Nothing
End If
end sub

Porem a combo fica em branco, ela não esta mostrando os nomes e codigos dos fornecedores da tblFornecedor.

Obrigado mais uma vez

Esta dando esta mensagem:

A fonte de registro voce digitou o nome da fonte corretamente , ela foi excluida ou renomeada ou ela existe em outro banco de dados

estou fazendo assim:

CodigoFornecedor, RazaoSocial FROM tblFornecedores ORDER BY tblFornecedor

Coluna acoplada: 1
Limitar a uma Lista: Sim
Número de colunas: 2

Estou fazendo algo errado?

Olá Noberto
Continua com o mesmo erro e nao esta mostrando os fornecedores
Segue o banco de dados, se tiver um tempo e puder verificar eu agradeço

Segue o banco na versao 2003
obrigado
n

Oi Noberto,
eu queria muito aprender os dois modelos, se puder me ajudar a desenvolver os dois serei muito grato!

e em questao da combo realmente eu estava errado, agora aparece os fornecedores, mas o me.recorset esta dando erro de compilação não encontrado.

Obrigado Noberto ficarei no aguardo

Era exatamente isto Noberto muito obrigado!!

Se eu quiser inserir esta combo tblCompra em vez de abrir o formulario fosse preenchido os campos na tbl compra como ficaria?

Deixe-me explicar melhor...
alem desta necessidade que tinha e voce resolveu me passou a ideia do seguinte:

No meu formulario de compras eu tenho codigoCompra Data e CodigoFornecedor, voce acha que é interessante fazer uma combo como referencia de pesquisa de fornecedor?Por exemplo

Quer fazer uma compra com o fornecedor X mas eu não sei o codigo deste fornecedor, não seria interessante fazer esta referencia de busca?
O que acha?

Funcionou direitinho Noberto Muito obrigado pela ajuda.

Olá Noberto bom dia,

Eu retirei o resolvido porque tenho uma duvida e não quero posta-lo em outro topico:

A listbox que me ajudou a fazer funciona direitinho, mas quando um registro é excluido de um formulario ou tabela, não some da listbox.
Eu já tentei usar o me.Refresh mas não deu em nada.
Poderia me ajudar nesta questao?

Funcionou direitinho Noberto muito obrigado pela dica, eu não sabia que precisava colocar Option Compare Database
Option Explicit

Bom que agora aprendi!!

obrigado mais uma vez