Cioè vorresti scorrere il recordset di 10 in 10 ??...
Beh... nn c'è una sub specifica del genere... al limite usa un ciclo (supponendo che tu debba richiamare questa routine, tramite la pressione di un pulsante 'MUOVI AVANTI VELOCE >>'... :master: ...)

codice:
Dim count As Byte
For count = 0 To 10
    If adoPrimaryRS.EOF Then adoPrimaryRS.MoveFirst &_
    Else adoPrimaryRS.MoveNext
Next count
Nota... il codice sopra scritto crea un ciclo con 'ritorno di carrello'... se una volta arrivato al EndOfFile del recordset non vuoi tornare al primo ma uscire, basta che al posto dell'istruzione
'adoPrimaryRS.MoveFirst' inserisci 'Exit For'... E il ciclo terminerà, ovviamente lasciando il recordset puntato all'ultimo record...

Spero di esserti stato utile...

AsanoRonin