Private Sub Text3_KeyPress(KeyAscii As Integer)
            On Error GoTo Datenbankfehler  'Wenn Fehler beim laden der 
            ' Datenbank...
            dbFile = App.Path + "\Users.MDB" 'Datenbankpfad laden
            Set db = Workspaces(0).OpenDatabase(dbFile, False, False, _
              ";pwd=AbcDEFGT") 'öffne Datenbank
            länge = Len(Text3.Text) 'jetzige länge des Textes in der TextBox
            Set rs = db.OpenRecordset("Select * from Kunden where Name like '" _
              & Text3.Text & "*'") 'Nach Kunde suchen der so ähnlich _
              geschrieben wird
If Not rs.EOF Then 'wenn etwas gefunden...
    Text3.Text = Text3.Text & Right$(rs.Fields("Name"), Len(rs.Fields("Name")) _
      - länge) 'Text3 neu definieren
    Text3.SelStart = länge 'anfang markierung
    Text3.SelLength = Len(rs.Fields("Name")) - länge 'ende markierung ---> 
    ' bis hierhin klapts!
End If
Datenbankfehler:
End Sub  '-------> Hier wird der markierte Text gelöscht