[Resolvido]Filtra Listbox carregada pelo recordset com: frontend(Access) e backend(Mysql)

[left]Boa tarde, sou novo por aqui, me já vi que aqui, o que não falta é conhecimento, então estou aproveitando para procurar uma solução junto aos colegas;

É o seguinte tenho um frontend em "Access" acessando um backend em "Mysql", consigo preencher o form e a listbox sem problemas.

O problema é que agora estou tentando desenvolver um form de pesquisa, o qual consiste em:
- uma caixa de texto(servirá de critério para a busca),
- e uma listbox(que é carregada assim que o form é aberto e servirá para receber o critério de pesquisa).

Até agora já procurei e encontrei, mas para dentro do próprio access, mas via ADO/Recordset não consegui.

Portanto, gostaria de junto aos colegas encontrar uma solução que sei, além de me ajudar vai ajudar a muitos.

Um abraço...

Amigo,

a partir de um exemplo do mestre macoratti e usando VBA/ADO NO ACCESS2010 consegui reunir mais de uma coluna na LISTBOX. a partir destas informações , voce puxa o que quiser da tabela.

'no cabeçalho do modulo
public db as dao.database
public ws as dao.workspace

Public Sub CarregaControle(ByVal Controle As Object, Tabela, CodigoCampo, DescricaoCampo As String)
Dim rs As Recordset 'Declara um recorset
Dim sql As String 'Declara uma string para a consulta SQL

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(nomedoarq, False, False, ";pwd=" & varPwd)

sql = "SELECT " & CodigoCampo & ", " & DescricaoCampo & " FROM " & Tabela

'abre o recorddset com os dados retornados
Set rs = db.OpenRecordset(sql, dbOpenForwardOnly)

With rs
Do Until .EOF
Controle.AddItem rs(DescricaoCampo) & ";" & rs(CodigoCampo)
.MoveNext
Loop
.Close
End With

Set rs = Nothing
Exit Sub


espero ter contribuído. Boa Sorte

Paulo Wassolowski