Devo impaginare il risultato di una query ma mi dà il seguente errore:

ADODB.Recordset error '800a0cb3'
Il set di record corrente non supporta i segnalibri. Potrebbe trattarsi di una limitazione del provider o del tipo di cursore selezionato.

/sviluppo/pippo_1.0/quotazioni.asp, line 202


Il mio codice è il seguente:


<%
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1

' STRINGA SQL

dim conn
dim rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&perc2
sql ="SELECT idquotazione,data,eliminata,idazienda FROM quotazioni order by data"
rs.open sql, conn



Set Rs=conn.Execute(sql)

rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page

If rs.Eof=True or rs.Bof=True then
Response.Write "

Nessun risultato trovato</P>"

Else

For i=1 to RecordsPerPagina
if Not rs.EOF then



idaz=rs("idazienda")


dim connaz
dim rsaz
set connaz = Server.CreateObject("ADODB.Connection")
set rsaz = Server.CreateObject("ADODB.Recordset")
connaz.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&perc4&";Jet OLEDBatabase"
Queryaz ="SELECT ditta FROM aziende WHERE (idazienda = "&idaz&")"
rsaz.open Queryaz, connaz



%>

<tr>
<td width=300>
<font face=verdana size=1 color=a42828><%=rsaz("ditta")%></font><hr color=a42828 size=1>
</td>
<td width=5></td>
<td width=70 align=center>
<font face=verdana size=1><%=rs("idquotazione")%></font><hr color=a42828 size=1>
</td>
<td width=5></td>
<td width=50 align=center>
<font face=verdana size=1><%=rs("data")%></font><hr color=a42828 size=1>
</td>
<td width=5></td>
<td width=100>
<font face=verdana size=1><%if rs("eliminata") = 0 then%>Da verificare<%else%>Già inoltrata <%end if%></font><hr color=a42828 size=1>
</td>

</tr>
<%

End if
Next
End if

Response.Write "

Pagine: "

For pag=1 to rs.PageCount
Response.Write "<A href='pagina.asp?page=" & pag
Response.Write "&ricerca=" & Server.UrlEncode(strRicerca)
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next

Response.Write "</P>"

RS.Close
dataconn.Close
%>


Come devo fare?