Option Explicit
Dim mdbVertreter As Database
Dim tbVertreter As Dynaset ' Recordset
Dim SQL As String
Dim sString As Variant
'
Private Sub cmdSuchen_Click()
    sString = tfName.Text
    sString = Replace(sString, Left(sString, 1), UCase(Left(sString, 1)), 1, 1)
    tfName.Text = sString
    if tfLikeButton then
        SQL = "SELECT * FROM Vertreter WHERE ucase(VertreterNachname) LIKE '*" _
          & ucase(tfName.Text) & "*'"
   else
        SQL = "SELECT * FROM Vertreter WHERE ucase(VertreterNachname) = '" & _
          ucase(tfName.Text) & *'"
    end if
 
        Set mdbVertreter = OpenDatabase(App.Path + "/db1.mdb")
        Set tbVertreter = mdbVertreter.Opendynaset(sql, &0)
             if tbVertreter.EOF and tbvertreter.bof then 
                       MsgBox ("Datensatz konnte leider nicht gefunden werden.")
                       exit sub
             end if
         tbVertreter.MoveFirst ' Die Auswahl Sollte eigendlich immer im ersten 
         ' Datensatz befinden, wenn es Daten gibt
            do until tbVertreter.EOF
' Unabhängig davon, ob das SELECT Statement mit LIKE oder "=" formuliert ist, 
' können mehrere Datensätze zurück kommen. Daher würde ich 'ne Listbox oder _
irgend etwas vergleichbares zur Auswahl füllen, wenn dies Schleife mehrfach _
durchläuft.
             tfName.Text = tbVertreter!VertreterNachname 
             tbVertreter.MoveNext
            loop
Exit Sub
'
Gefunden:
    lfListe.AddItem "gefunden"
End Sub