Grazie delle risposte, scusate ma non l' avevo scritto ho già provato aggiungendo alla stringa % ma non funziona lo stesso. Vi scrivo per intero la funzione di ricerca che richiamo dopo aver riempito la textbox se nel caso trovate qualche errore, grazie

Private Sub Command2_Click()
analisi.DatabaseName = App.Path & "\laboratorio.mdb"
'Data1.Connect = "ODBC;DATABASE=Modello42;UID=sa;PWD=;DSN=Modello42 ;"
analisi.RecordSource = "Select * from ana_cli where nome = '" & Trim(v_nome.Text) & "' order by nome"
analisi.Refresh
If Not analisi.Recordset.EOF Then
analisi.Recordset.MoveLast
End If
With analisi.Recordset
If .EOF Then

MsgBox "Nominativo non presente !", vbCritical, "FINE RICERCA"
Else

MsgBox "Trovato N." + Str(.RecordCount) + " Nominativi " & !NOME, vbOKOnly, "FINE RICERCA"

End If
End With
End Sub