il ciclo for..nn ricordo

[ladyBlu]

scrivi così:

dbClienti.RS.MoveFirst
For i = 1 To dbClienti.RS.RecordCount
   If txtDitta.Text = NomeDaCercare Then
      MsgBox "trovato"
      Exit For
   End If
   dbClienti.RS.MoveNext
Next i

come aveva detto già debbelandia;
ma secondo me ti conviene usare un ciclo di do:

dbClienti.RS.MoveFirst
Do Until dbClienti.RS.EOF 
   If txtDitta.Text = NomeDaCercare Then
      MsgBox "trovato"
      Exit For
   End If
   Recordset.MoveNext
Loop