Varför fungerar inte detta? Är det jag som tänker fel?

Jag vill skriva ut den post där cDate är lika med dagens datum eller högre än dagens datum.
Nu får jag ut den första posten i databasen, fast cDate är lägre än Date

<code>
strSQL = "Select Top 1 * From t_calendar Where cDate >= "& Date() &""
Set objRs = Connect.Execute(strSQL)

If objRsImg.EOF Then
Response.Write "Finns ingen"& vbCrLf
Else
Response.Write "Skriv ut posten"& vbCrLf
End If

objRs.Close : Set objRs = Nothing
</code>

De är typiskt, precis när man har skrivit ett inlägg så hittar man felet.
Det måste vara #

<code>
strSQL = "Select Top 1 * From t_calendar Where cDate >= #"& Date() &"#"
Set objRs = Connect.Execute(strSQL)

If objRsImg.EOF Then
Response.Write "Finns ingen"& vbCrLf
Else
Response.Write "Skriv ut posten"& vbCrLf
End If

objRs.Close : Set objRs = Nothing
</code>

precis; i access skall datum/tid vara omslutna av # och i MySQL skall det vara omslutna av enkelcitettecken.