Dim SQL As String
Dim sDatumVon As Date
Dim sDatumBis As Date
 
' Zeitraum
Fahrtk_anz_Dat1.Text = "sDatumVon"
Fahrtk_anz_Dat2.Text = "sDatumBis"
 
' Alle Termine eines bestimmten Zeitraums ermitteln
sDatumVon = CDate(Fahrtk_anz_Dat1.Text)
sDatumBis = CDate(Fahrtk_anz_Dat2.Text)
 
' SQL-Anweisung
SQL = "SELECT * FROM Termine WHERE Datum BETWEEN #" & _
Format$(sDatumVon, "m-d-yy") & "# AND #" & _
Format$(sDatumBis, "m-d-yy") & "#"