Jeg prøver en gang til:) movenext virker ikke *---> hvorfor?

min kode er:

if len(request.querystring(\"projectID\")) > 0 then
strproject = request.querystring(\"projectID\")
set bumbech1 = Server.CreateObject(\"ADODB.connection\")
bumbech1.open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../../db/IB.mdb\")
sqlVisfiler = \"select * from htmfiler where ProjectId =\'\" & strproject & \"\' order by htm \"
response.write sqlvisfiler
rsvisfiler = bumbech1.execute(sqlVisfiler)
Do While Not rsvisfiler.eof
strVisfiler = strVisfiler & \"<tr><td colspan=3>\" & rsVisfiler(\"htm\") & \"</td></tr>\"
rsVisfiler.movenext
loop
end if

Min fejlmeddelse er:

select * from htmfiler where ProjectId =\'hundogkat\' order by htm

Microsoft VBScript runtime error \'800a01b6\'

Object doesn\'t support this property or method: \'EOF\'

/kaspertesting/fileadmin.asp, line 27