Dim SQL As String = "SELECT DSIDSchüler, Vorname, Nachname, Strasse," & _
  "Postleitzahl, Stadt, Stadtteil FROM tblSchüler WHERE " 
If txtausw1.TextLength > 0 Then SQL &= "Vorname LIKE @Vorname AND "
If txtausw2.TextLength > 0 Then SQL &= "Nachname LIKE @Nachname AND " 
If txtausw3.TextLength > 0 Then SQL &= "Strasse LIKE @Strasse AND " 
If txtausw4.TextLength > 0 Then SQL &= "Postleitzahl LIKE @Postleitzahl AND " 
If txtausw5.TextLength > 0 Then SQL &= "Stadt LIKE @Stadt AND " 
If txtausw6.TextLength > 0 Then SQL &= "Stadtteil LIKE @Stadtteil"
 
If SQL.EndWith(" AND ") Then SQL = SQL.SubStr(SQL, 0, SQL.Length - 5)
If SQL.EndWith(" WHERE ") Then SQL = SQL.SubStr(SQL, 0, SQL.Length - 7)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de