Julekalender igen igen

Hvorfor er det lige det her ikke virker?

Siden der viser billeder:

<%
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"jul.mdb\")
set rs = connect.execute(\"SELECT * FROM chrismas\")
Session.LCID = 1030

if not rs.EOF then
do until rs.EOF
%>
<form name=\"form1\" method=\"post\" action=\"vis.asp\">
<img src=\"TN_<%=rs(\"img\")%>\">
<input type=\"submit\" name=\"Submit\" value=\"Submit\">
<input type=\"hidden\" name=\"dato\" value=\"<%=rs(\"dato\")%>\">
<input type=\"hidden\" name=\"dato1\" value=\"<%=FormatDateTime(Date, 2)%>\">
</form>
<br>

<%
rs.movenext
Loop
else
response.write \"Ingen felter\"
end if
%>


Siden der finder ud af om man må se billedt:

<%
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"jul.mdb\")
strSQL = \"Select * from chrismas where dato = \" & request.form(\"dato\")& \";\"
set rs = Connect.execute(strSQL)

Session.LCID = 1030

dato = date

if request.form(\"dato1\") <> request.form(\"dato\") then
response.write \"Du snyder\"
else

%>
<img src=\"<%= rs(\"img\") %>\"
<%
end if
%>
<br>
<%=request.form(\"dato\")%>

Hvis jeg ikke må se billedet så virker det og den skriver du SNYDER men hvis datoen er korrekt komer denne fejl:

ADODB.Field error \'80020009\'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/asp/jul/vis.asp, line 0