Undersøge for dato i sql streng

Hejsa

Hvordan er det lige jeg undersøger for dato i en sql streng. Jeg har prøvet med følgende men det giver ikke nogen resultater selvom jeg ved der er nogen:

AAr        = right(Date(), 4)
                   
Sql2 = "SELECT B.BookingID, B.Start, B.Slut From Booking as B, Bruger as BR Where B.BrugerID = BR.BrugerID and BR.LejerID = '" & Session("LejerID") & "' and B.Start > 01-01-" & AAr & " and B.Start < 31-12-" & AAr & " and B.Slut > 01-01-" & AAr & " and B.Slut < 31-12-" & AAr & " Order By B.Start DESC"