Private Sub txtVerkäufer_KeyPress(KeyAscii As Integer)
 
 
    'Bei Tastendruck im Eingabetextfeld Artikelnummer
 
    'Falls Tasten-Code...
    Select Case KeyAscii
 
        Case vbKeyBack 'Zulässige Eingabe
 
        Case vbKeyReturn
 
            dbFile = App.Path + "\Verkäufer.mdb"
            Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
 
SQL = "SELECT * FROM Verkäufer WHERE Anmeldename LIKE '" + txtVerkäufer.Text + _
  "'"
 
            Set rs = Db.OpenRecordset(SQL)
 
                If rs.RecordCount > 0 Then
 
                        txtVerkäufer.Text = Empty
                        txtVerkäufer.Text = rs("Nachname")
                        rs.Close
                        txtArtikelnummer.SetFocus
 
                Else
 
                        MsgBox "Fehler: Verkäufer nicht vorhanden !!!" 'MSG BOX 
                        ' falls SQL-Abfrage Erfolglos
                        txtVerkäufer.Text = Empty 'Lösche Ihnalt von 
                        ' Artikelnummer
                        txtVerkäufer.SetFocus 'Focus auf Artikelnummer
 
                End If
 
        End Select
 
End Sub

Mfg MyD