Set RS = DB.OpenRecordset("SELECT * FROM t_" & cbox_Kategorie.Text & " WHERE " _
  & _
  "Vergeben='Nein'" & _
  " AND Produkt LIKE '" & txt_Produktfilter.Text & "'" & _
  " AND VergebenAnPC LIKE '" & txt_PCfilter.Text & "'" & _
  " AND VergebenAnUser LIKE '" & txt_Benutzerfilter.Text & "'" & _
  " AND EingetragenVon LIKE '" & txt_Eintragungsfilter.Text & "'")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de