mi da ancora lo stesso errore, magari se vi faccio vedere tutto il codice si legge meglio ^__^

campo = Combo1.Text
valore = Text1.Text
Form1.Data1.RecordSource = "select * from anagrafica where campo like '*" & valore & "*'"
Form1.Data1.Refresh

e l'errore dato è sempre:

Parametri insufficienti. Previsto 1.

miiii sta facendo impazzire