Private Sub txtsucher_GotFocus()
Dim db As Database
Dim r As Recordset
Dim i As Integer
Dim j As Integer
 
If Me.lstkunden.ListCount > 0 Then
    i = 0
    j = Me.lstkunden.ListCount - 1
    Do Until i > j
        Me.lstkunden.RemoveItem (j - i)
        i = i + 1
    Loop
End If
 
If Len(Me.txtsucher) > 2 Then
    Set db = CurrentDb
    Set r = db.OpenRecordset("Kunde", dbOpenDynaset)
    Me.lstkunden.ColumnCount = 4
    r.FindFirst "Nachname Like '" & Me.txtsucher & "*'"
    Do While r.NoMatch = False
        Me.lstkunden.AddItem r![Kunde-ID] & ";" & r![Nachname] & ";" & _
          r![Vorname] & ";" & r![Gebaeude] & ";"
        r.FindNext "Nachname Like '" & Me.txtsucher & "*'"
    Loop
End If
End Sub