Private Sub Command1_Click()
    Dim SQL As String
    Dim splitArr() As String
    Dim i As Integer
    Dim searchStr As String
    Dim link As String
    Dim parts As Boolean
 
    If Option1.Value = True Then
        link = "OR [WECHSEL_KASSE] Like"
    Else
        link = "AND [WECHSEL_KASSE] Like"
    End If
 
    If Trim(Me.Text1.Text) <> "" Then
 
        parts = InStr(Trim(Text1.Text), " ")
 
        If parts Then
            splitArr = Split(Text1.Text, " ")
            For i = 0 To UBound(splitArr())
                searchStr = searchStr & "'*" & splitArr(i) & "*'" & " "
                If i < UBound(splitArr()) Then searchStr = searchStr & link & "" & _
                  ""
            Next i
        Else
            searchStr = "'*" & Trim(Text1.Text) & "*'"
        End If
 
        SQL = "SELECT * FROM [t_kk_master] WHERE [WECHSEL_KASSE] Like " & _
          searchStr & "ORDER BY [WECHSEL_KASSE]"
        Set rsSuchKasse = kuend2db.OpenRecordset(SQL, dbOpenSnapshot)
 
        fillList
 
    Else
        Beep
    End If
 
    Text1.SetFocus
 
End Sub
 
 
'*** hier fülle ich die ListBox ***
Private Sub fillList()
 
    List1.Clear
    With rsSuchKasse
        If Not .BOF Then .MoveFirst
        While Not .EOF
            Me.List1.AddItem (.Fields("WECHSEL_KASSE"))
            If Not .EOF Then .MoveNext
        Wend
    End With
 
End Sub