scusa ma
rs.AbsolutePage = Current_Page

do while rs.AbsolutePage = Current_Page AND not RS.EOF

se imposti
rs.AbsolutePage = Current_Page
non puo' eseguire il do loop finchè
rs.AbsolutePage = Current_Page
già è uguale........