objRec.find

I mit spaede forsoeg paa at laere mig ASP, har jeg bikset nedenstaaende sammen.

Problemet opstaar, hvis vaerdien af ID=2 (vaerdien af "hits") er stoerre end for ID=1 - da tilskrives fejlen objRec.eof

(haf den keoerende indtil ID12 - vaerdien af "hits" i ID13 var stoerre, og saa gik det galt)

Hvad goer jeg forkert ?

<%
Dim strDriver
Dim StrPlacering
Dim objCon
Dim objRec
strDriver="{Microsoft Access Driver (*.mdb)}"
set objCon = server.createobject("ADODB.connection")
objCon.Open("DRIVER=" & strDriver & "; DBQ=" & Server.MapPath("db/photo.mdb"))
set objRec=server.createObject("adodb.recordset")
objRec.open "foto",objCon,1,3
%>
nr 1 = <%
objRec.find "ID = 1"
if not objRec.eof then   
    response.write objRec("Hits")
Else
    response.write "0"
End if

%>
nr 2 = <%
objRec.find "ID = 2"
if not objRec.eof then   
    response.write objRec("Hits")
Else
    response.write "0"
End if
%>
<%
objRec.close
Set objRec = Nothing
objCon.close
Set objCon = Nothing
%>