Prova a farlo che non è difficile come sembra
Tra l'altro c'è un errore in quello che ti ho mandato, ho scordato una modifica
Data1.DatabaseName = "C:\Documenti\MydataBase.mdb" 'Individuo il database (Ovviamente cambia il percorso a tuo piacimento)
Data1.RecordSource = "MiaTabella" 'Individuo la tabella Ovviamente la tabella che interessa a te
'eseguo una select con chiave di ricerca nel campo Nome confrontandola con combo1.text. Il risultato è che il tuo oggetto data vedrà solo i record di cui avrà trovato corrispondenza.
Data1.RecordSource = ("SELECT * FROM MiaTabella WHERE Nome like '" + Combo2.Text + "' ORDER BY Nome ASC;")
Perchè possa tornare a vedere l'intero database occorrerà fare una Data1.RecordSource = ("SELECT *")
Se hai dei dubbi chiedi pure ma non ti arrendere.
salutoni PapaIndia