Private Sub Command1_Click()
Dim Ssql as String
 
Ssql="SELECT * FROM [kundenstammdaten] "
 
' Wenn Du keine Bedingung hast, die Du immer brauchst, nimm diese:
 
Ssql=Ssql & " WHERE 1=1" ' 1=1 ist immer Wahr
 
' ein keiner Dummy, um nicht den Übergang von
' WHERE-Schlüsselwort auf AND-Schlüsselwort
' irgendwie im Code regeln zu müssen
 
If Len(Trim(txtVorname.Text) ) >1 Then
     Ssql=Ssql & " AND [vorname] LIKE '" & Trim(txtVorname.Text) & "%'"
End If
 
If Len(Trim(txtName.Text))>1 Then
     Ssql=Ssql & " AND [name] LIKE '" & Trim(txtName.Text) & "%'"
End If
 
End Sub

Private Sub Command1_Click()
Dim Ssql as String
Dim Ctrl as Control ' unter VBA: MSforms.Control
 
Ssql="SELECT * FROM [kundenstammdaten] "
Ssql=Ssql & " WHERE 1=1" ' 1=1 ist immer Wahr
 
' bis hier hin wie oben
 
For Each Ctrl In FrmAuswahl.Controls
     If Ctrl.Type= vbTextfeld Then
' vbTextFeld - siehe Anmerkung 1
          If Len(Trim(Ctrl.Text) ) >1 Then
               Ssql=Ssql & " AND [" & Mid(Ctrl.name,4) & "] LIKE '" & Trim( _
                 Ctrl.Text) & "%'"
' Ctrl.name - siehe Anmerkung 2
          End If
     End If
Next Ctrl
End Sub