SQL e completamento

[cla80]

la mia textbox si chiama txtCli.text, ripeto il codice:

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 & "*'" ' ECCO QUA LA TEXTBOX 
Set rs = db.OpenRecordset(SQL)
End Sub