[Resolvido]Chamar a consulta no VBA com MySql

Tenho uma listbox que lista os clientes, e, tenho um botão ao lado que mostra apenas os clientes com A.

Ou seja, primeiro criei um filtro que traz apenas os valores com A, o código Sql é esse :

SELECT *
FROM Clientes
WHERE (((Clientes.Nome) Like "A*"));


E eu quero criar um evento no botão que, ao clicar, ele vai mudar os valores da listbox, ou seja, vai mostrar só os que começarem com A.

Tentei fazer algo assim:

Private Sub Comando21_Click()
Me.lista.RowSource "SELECT [Consulta3].[Nome] FROM Consulta3; "
End Sub

Ou seja, ao clicar no botão, vai mudar a origem da linha dessa listbox.

Só que não dá certo.

Como faço pra 'chamar' isso?

Obrigado e boa noite.

teste por favor;

Private Sub Comando21_Click()
Me.lista.RowSource = "SELECT Nome FROM Consulta3"
Me.lista.RowSourceType = "Table/Query"
Me.lista.Requery
End Sub

Caraca, muito obrigado mesmo. Graças a você conseguí fazer uma coisa que tava em mente, que era criar a filtragem a partir da inicial do alfabeto.


O problema é que fiz uma consulta pra cada letra e depois usei esse código, mas funcionou. huhu

Eu poderia fazer de um jeito mais fácil, tipo, se eu tiver uma consulta para trazer os valores que começam com A, seu código SQL fica assim, e se eu for colocar no VBA?

SELECT Clientes.Nome
FROM Clientes
WHERE (((Clientes.Nome) Like "a*"));

Como coloco isso no VBA pra fazer de forma mais fácil, apenas ir copiando o código e mudar a inicial e não ter que fazer uma consulta pra cada?

Amigão tem varias possibilidades;

1ª
Private Sub Comando21_Click()
Me.lista.RowSource = "SELECT Nome FROM SuaTabela Where Nome Like 'A*'"
Me.lista.RowSourceType = "Table/Query"
Me.lista.Requery
End Sub

2ª
http://maximoaccess.forumeiros.com/t7902-filtra-listbox-por-ordem-alfabetica

3ª
http://dl.dropbox.com/u/771097/ExemploFiltragem.rar

Caraca, muito obrigado, obrigado mesmo. Tópico resolvido.

Obrigadoooo. \ô/