[Resolvido]Filtro Em LISTBOX

Alguém da uma luz ai.

Tenho uma LISTBOX e quero filtrar ela conforme escrevo em uma TextBox

Já vi muito exemplos para Subformularios, mais não consigo fazer o mesmo para a minha LISTBOX.

Alguem sabe como fazer?

No evento ao alterar da sua caixa de pesquisa

Código:

Me.NomeListBox.RowSource = "SELECT Campo1,Campo2,Campo3 FROM NomeTabelaOuConsulta WHERE CampoAPesquisarDaTabela Like '*" & Me.NomeCaixaPesquisa.Text & "*'"

Muito Obrigado Fabio.

Deu Certo