SQL e completamento

[cla80]

Esempio:

Textbox = scrivo su di essa PAS

guarda caso in archivio ho PASOLINI ecco lui mi deve suggerire subito prima di completare, la parola PASOLINI

Ho provato così ma sbaglio:

Private Sub txtCli_Change()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim SQL As String
Set db = OpenDatabase(App.Path & "\Registro.mdb")
SQL = "SELECT * FROM qryragsoc WHERE RAGIONE_SOC_FISCALE LIKE '*" & txtCli.Text & "*'"
Set rs = db.OpenRecordset(SQL)
End Sub

Aiuto?