rs.moveprevious error?

I have the following code snippet. It gets the id number for the next and last records. It generates the error...

Microsoft JET Database Engine error '80040e24'

/_stuff/_comics/view_comic.asp, line 24

I opened it dynamically but it doesn't work. Any ideas?

   'Open the database connection
   Dim conn
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.provider = "Microsoft.Jet.OLEDB.4.0"
   conn.mode = AdOpenReadOnly
   conn.open ("DATA SOURCE=c:\myfolder\myfolder2\mydatabase.mdb")
  
   'Open a recordset for the comics database
   Dim rs
   Set rs = Server.CreateObject("ADODB.Recordset")
   rs.Open "SELECT * FROM COMIC", conn, AdOpenDynamic
  
   If request.querystring("id") = "" then
      rs.movefirst
   else
      rs.move request.querystring("id")
   end if 
  
   'Get the id number for the next record and the previous
   Dim nextrecord
   Dim lastrecord
   If rs.fields("cid") = 1 then
      rs.movelast
   lastrecord = rs.fields("cid")
   rs.movefirst
   rs.movenext
   nextrecord = rs.fields("cid")
   rs.moveprevious
   Else
      rs.movenext
   nextrecord = rs.fields("cid")
   rs.moveprevious
   rs.moveprevious
   lastrecord = rs.fields("cid")
   rs.movenext
   End If