[Resolvido]Caixa de listagem em VBA

Olá Pessoal!
Boa dia! Como sou iniciante, preciso da ajuda de vocês para resolver um pequeno problema, tenho um formulário com dados cadastrais e dentro dele possui um botão para abrir um outro formulário de pesquisa com campo para digitar e uma caixa de listagem que filtra os dados digitados. Eu uso os parâmetros certinhos e ele me retorna a pesquisa dos registros, porém após fechar o banco de dados e abrir novamente os dados no formulário de pesquisa desaparecem.. ou seja, os parâmetros continuam certos mas não consegue buscar os registros na tabela. uso o access 2007. Gostaria de saber se tem como transportar essa "origem da linha" para o VBA?
Desde já agradeço a Todos!!! Segue a parte do meu BD com o problema, quando clico na lupinha para pesquisar o funcionário, ele não me retorna mais os registros, mas se eu refizer o formulário de pesquisa ele funciona, até eu fechar o BD, quando volta o problema. Agradeço a ajuda!!! abraços!!!

Acredito que o problema da busca se encontrava na caixa de listagem. A removi e inseri uma outra e add o código na textbox e está tudo ok.

Código:

Private Sub Texto0_Change()
    Me.lstBuscca.RowSource = "Select Matricula,Funcionario,[FUNÇÃO] From tbl_Cadastro Where MATRICULA Like '*" & Me.Texto0.Text & "*'"
End Sub

Formiga10x, o anexo Não Funcionou !!! a caixa de listagem não tem evento associado!!

Véi refiz o form de busca funcionou blz então fechei e ao abrir o infeliz não funciona mais. Sinceramente nunca vi isto então deixe o tópico aberto para um dos mestres analisar.

Resolvido!