paging i acces

jeg har søgt lidt rundt på nettet, og har også fudnet nogle sider om paging, men synes de er meget avancerede i forhold til hvor nemt det er i MySQL

i MySQL bruger jeg:

<%
Set rs = Conn.Execute("SELECT COUNT(*) AS records FROM events")
intRecords = int(rs("records"))

intPage = Request.QueryString("page2")
if intPage = "" OR not isNumeric(intPage) then
  intPage = int(1)
else
  intPage = int(intPage)
end if

intPageSize = int(20)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)

if intRecords/intPageSize > intPages then
intPages = intPages+1
end if

Set rs = Conn.Execute("Select * From events order by dato LIMIT " & intStart & ", " & intPageSize )
%>

<% Do until rs.EOF %>

<%
rs.MoveNext
Loop
%>

<%
For i = 1 to intPages
  if i = intPage then
    Response.Write "<b>" & i & "</b> "
  else
%>
<a class="link_main" href='default.asp?page=events&page2=<% =i %>'><% =i %><A>
<%
  end if
next
%>

er der ikke en måde i access der er ligeså nem

ps. jeg kan ikke bare bruge where id > and id < fordi der er nogle spring i mine id's, håber nogen kan hjælpe