Option Explicit
Private Db As Database

Private Sub Form_Load()
  Set Db = DBEngine.OpenDatabase("Pfad_zur_MDB")
End Sub

Private Sub cmdSearch_Click()
  Dim sName As String
  Dim Rs As Recordset
 
  sName = InputBox("Bitte Namen eingeben:")
  If sName <> "" Then
    Set Rs = Db.OpenRecordset("SELECT * FROM TABELLE WHERE Name = '" & sName & _
      "'")
    If Rs.RecordCount > 0 Then
      ' Falls mehr als ein Datensatz gefunden wurde, wird der 
      ' erste Datensatz angezeigt
      txtName.Text = Rs.Fields("Name")
      txtVorname.Text = Rs.Fields("Vorname")
      txtStrasse.Text = Rs.Fields("Strasse")
      ' usw.
    Else
      MsgBox "Kein Datensatz mit dem Namen '" & sName & "' gefunden!"
    End If
  End If
  Rs.Close
  Set Rs = Nothing
End Sub

Private Sub Form_Unload()
  Db.Close
  Set Db = Nothing
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de