Visual Basic.NET - URGENTE por favor ayudarme

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