Private Sub cmdSuchen_Click(Index As Integer)
  Dim sName As String
  Dim vBookmark As Variant
 
  ' aktuelle Datensatz-Position merken
  vBookmark = Rs.Bookmark
 
  sName = InputBox("Bitte Namen eingeben:")
  If sName <> "" Then
    ' Datensatz suchen
    Rs.Find "Name = '" & sName & "'"
    If Not Rs.NoMatch Then
      ' Ok, Datensatz gefunden
      txtName(0).Text = Rs.Fields("Name")
      txtVorname(1).Text = Rs.Fields("Vorname")
      txtTelefon(2).Text = Rs.Fields("Telefon")
      ' usw.
    Else
      MsgBox "Kein Datensatz mit dem Namen '" & sName & "' gefunden!"
      ' Datensatzzeiger wieder auf usprünglichen Datensatz "bewegen"
      Rs.Bookmark = vBookmark
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de