intanto passiamo da questa:
codice:
Set Rec = Server.CreateObject ("ADODB.Recordset")
Rec.PageSize = Record_Pagina
Rec.Open sql, Conn, 3, 3
a questa:
codice:
Set Rec = Server.CreateObject ("ADODB.Recordset")
Rec.Open sql, Conn, 1, 3  'oppure 3,3
poi fai
codice:
if (not Rec.eof) then

Rec.PageSize=Record_Pagina

...
ma la connessione è aperta? (si) database access vero?