Grazie adesso funziona.
Mi potresti solo spiegare cosa fa questo?

objrs.PageSize = RecordsPerPagina
objrs.AbsolutePage = page

Grazie infinite