Private Sub btnShowAll_Click()
 
   Dim SuchSQL As String
   SuchSQL = xSQL
 
   If Me.txtSuchKunde = True Then
 
   SuchSQL = SuchSQL & " WHERE Vorname and Nachname LIKE '%" & Me.txtSuchKunde _
     & "%'"
   Else
 
  SuchSQL = SuchSQL & " WHERE Vorname and Nachname = '" & Me.txtSuchKunde & "'"
   End If
 
   rs.Close
   rs.Open SuchSQL, Conn, adOpenDynamic, adLockOptimistic
 
   Set Me.Recordset = rs
 
 
End Sub

' Suche in Vorname oder Nachname
WHERE Vorname LIKE '...' OR Nachname LIKE '...'

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de