Private Sub Command1_Click()
Dim SQL As String
Dim Wort() As String
Dim N As Integer
 
SQL = "SELECT [Feld1] FROM Liste Where Feld2 Like "
 
Wort = Split(txtSuche.Text, ",")
 
For N = 0 To UBound(Wort)
  SQL = SQL & "'*" & Trim(Wort(N)) & "*' OR Feld2 Like "
Next
 
SQL = Mid(SQL, 1, Len(SQL) - 15)
 
MsgBox SQL
 
End Sub