Dato udtræk fra access

Prøv sådan her:

strSQL = "SELECT * FROM tbl WHERE dato1 < Date() AND dato2 > Date()"

Sakl den også medtage posten hvis enten dato1 eller dato2 er lig dags dato skal der lige et ligmed tegn med sådan her:

strSQL = "SELECT * FROM tbl WHERE dato1 <= Date() AND dato2 >= Date()"

jeg har lige rettet det lidt til! men jeg kan kun få det til at virke hvis jeg hardkoder datoen:

<%
tjekdato = date() 'virker ikke
'tjekdato = "19-11-2004" 'virker

' SQL forespørgsel
strSQL = "SELECT * FROM fkalender WHERE dato1 <=#" & tjekdato & "# AND dato2 >=#" & tjekdato & "#"
Set rs = Conn.Execute(strSQL)

if rs("emne") = "" then
  Response.Write "Der spilles ikke teater den dato du søgte på. "
else
  Response.Write "Der opføres " & rs("emne") & " på den dato du søgte på."
end if

har du en ide?

Fejltype:
(0x80020009)
Undtagelse opstod.
/teater/forestilling/val_dato.asp, line 11

linje 11 =
Response.Write "Der spilles ikke teater den dato du søgte på. "

Smid bare et svar jeg fik vist lige dummet mig lidt, løste det med :

if rs.EOF or rs.BOF then
    Response.Write "Der spilles ikke teater den dato du søgte på. "
else
  Response.Write "Der opføres " & rs("emne") & " på den dato du søgte på."
end if

OK :))

takker:>