Има една функция на Алън Браун от Австралия. Той форматира датите преди да ги използва в SQL стринга.

Function SQLDate(varDate As Variant) As String
' MS-Access Tips for Serious Users
' Provided by Allen Browne

If IsDate(varDate) Then
SQLDate = "#" & Format$(varDate, "mm\/dd\/yyyy") & "#"
End If

End Function

Ето как се използва:

StrSQL = "SELECT * FROM [Holidays data]"
StrSQL = StrSQL & " WHERE [Date]=" & SQLDate(curDate)
StrSQL = StrSQL & " ORDER BY [ID];"
Set rst = CurrentDb.OpenRecordset(StrSQL)

А ето как се форматира дата:
Format(Now(),"Short date")