prova cosi
If dbClienti.Recordset.NoMatch Then
'Il nome cercato non è stato trovato.
MsgBox "Nome non trovato.", vbInformation, Me.Caption
else
dbClienti.Recordset.MoveFirst
dbClienti.Refresh

MsgBox "Nome trovato.", vbInformation, Me.Caption

End If