Hvorfor virker det ikke...

Hvorfor kan nedenstående kode ikke finde nogen records i tabellen \"helligdage\"?. Jeg ved der er en record med dags dato. (dag i tabellen har format kort dato).


Dim db As Database
Dim rec As recordset
Dim sql As String

sql = \"SELECT * FROM helligdage WHERE dag = \" & date



Set db = CurrentDb()
Set rec = db.OpenRecordset(sql, dbOpenDynaset)


If rec.RecordCount > 0 Then
  Exit Function
End If

Jakob