Dim FDatumvon as Date
Dim FDatumbis as Date
FDatumvon = CDate(DTPicker1)
FDatumbis = CDate(DTPicker2)
Dim SQL as string
 
SQL = "Select * From Fahrtkosten Where FD_Datum between #" & _
Format$(FDatumvon, "m-d-yy") & "# And #" & Format$(FDatumbis, "m-d-yy") & "#"
 
Recordset.open SQL