Private Sub Command1_Click()
If txtVorname <> "" And txtName = "" Then
 "Select * FROM Kundenstammdaten WHERE Vorname Like '" & Trim(txtVorname.Text) _
   & "%'"
ElseIf txtName <> "" And txtVorname = "" Then
 "Select * FROM Kundenstammdaten WHERE Name Like '" & Trim(txtName.Text) & "%'"
Else
 "Select Name,Vorname FROM Kundenstammdaten WHERE Name Like '" & Trim( _
   txtName.Text) & "%'  AND Vorname Like '" & Trim(txtVorname.Text) & "%'"
End If
End Sub