Dim vonDatum As String
Dim bisDatum As String
 
vonDatum = "01.01.2001"
bisDatum = "31.12.2001"
 
SQL = "SELECT * FROM Tabelle WHERE Datum Between #" &  _
                                            Format(CVDate(vonDatum),"m-d-yy") & _
                                            "# AND #" & _
                                            Format(CVDate(bisDatum),"m-d-yy") & _
                                            "#"