Se può interessarti, io per effettuare una ricerca simile ho fatto così:
in una maschera ho inserito una casella di testo che ho chiamato ricerca1 e una casella di riepilogo chiamata ricerca2; sull'evento "su modifica" di ricerca1 ho inserito questo codice:
Private Sub ricerca1_Change()
Dim CaratteriDigitati As String
CaratteriDigitati = Nz(Me!ricerca1.Text, "")
Me!ricerca2.RowSource = "SELECT ucase(ragionesociale),ID,ucase(comunesedeamm) FROM datiditta " &_ "WHERE ragionesociale LIKE '" & CaratteriDigitati & "*'order by ragionesociale"
End Sub
inserisci la tua query al posto di quella sopra, penso così
Me!ricerca2.RowSource = "SELECT TuttiAccount.Servizio, TuttiAccount.[User Id]," &_ "TuttiAccount.Password, TuttiAccount.Varie FROM TuttiAccount WHERE TuttiAccount.Servizio" &_ "LIKE '" & CaratteriDigitati & "*' ORDER BY TuttiAccount.Servizio"
(sistema tu gli "a capo" del codice perchè non so se sono giusti)
Lavori poi sul n° di colonne da visualizzare nella casella di riepilogo per visualizzare quello che vuoi