Visual Basic - es importante

Hola yo lo que quiero hacer es al abrir un report decirle que solo me muestre los 9 primeros registros en la primera hoja y que despues muestre los siguientes 9 en otra y asi lo estoy intentando hacer con esto:

Dim Registro As New ADODB.Recordset
Dim Registro1 As New ADODB.Recordset
strSQL = "Select count(*) as num_registro From tunidad "
strSQL1 = "Select * From TUnidad "
Set Registro = Nothing: Registro.Open strSQL, Connection, adOpenKeyset, adLockPessimistic
Set Registro1 = Nothing: Registro1.Open strSQL1, Connection, adOpenKeyset, adLockPessimistic
i = 0


Do Until Registro1.EOF
i = i + 1

MsgBox (Registro1!CodArt)
If i = 9 Then
i = 0
'Aqui debo decir que me salte a otra pagina

End If
Registro1.MoveNext

'registro1.NextRecordset
Loop

'CryReport.PrintFileCharSepSeparator = " "
'CryReport.RecordsSelected = 9
' CryReport.RecordsPrinted = 9
'CryReport.RecordsRead = 9
CryReport.PrintReport

End If

Muxisimas gracias por adelantado

Hola Nelem,
echale un vistazo al foro de crystal, te he dejado una posible solución. Ya me dirás.

Un saludo.

Hola por si no lees el otro es uqe lo que me dijiste no se donde lo tengo que poner es que del crystal ando perdida y otra cosa yo lo que tengo es un informe de tablas cruzadas por lo que en detalle no tengo nada sino que estan en el encabezado del informe.
Muxas gracias