paginación

[Facha]

tengo la siguiente tabla que se arma tomando los datos de una BD Access, como puedo hacer para paginar los datos de a 10?

'recorro readonly forward only y armo la tabla
response.write("<CENTER><H2>MANTENIMIENTO DE USUARIOS</H2><BR>")
response.write("<TABLE Width='600px' Border = '1px' BorderColor = '#CCCCCC' CellPadding = 4 CellSpacing='0'><TR ALIGN='CENTER'><TD bgcolor='#8080ff'><Font face = Verdana size = 3 color = 'white'><B><u>Código</u></B></Font></TD><TD bgcolor='#8080ff'><Font face = Verdana size = 3 color = 'white'><B><u>Nombre</u></B></font></TD><TD bgcolor='#8080ff'><Font face = Verdana size = 3 color = 'white'><B><u>Apellido</u></B></font></TD><TD bgcolor='#8080ff'><Font face = Verdana size = 3 color = 'white'><B><u>Emails</u></B></font></TD><TD bgcolor='#8080ff'><Font face = Verdana size = 3 color = 'white'><B><u>Teléfonos</u></B></font></TD><TD bgcolor='#8080ff'><Font face = Verdana size = 3 color = 'white'><B><u>Direcciones</u></B></font></TD><TD bgcolor='#8080ff'><Font face = Verdana size = 3 color = 'white'><B><u>Departamentos</u></B></font></TD><TD bgcolor='#8080ff'><Font face = Verdana size = 3 color = 'white'><B><u>Borrar</u></B></font></TD><TD bgcolor='#8080ff'><Font face = Verdana size = 3 color = 'white'><B><u>Modificar</u></B></font></TD></TR>")
Do while Admin.Read
If (indice = 0) Then
color = misColores(1)
indice = 1
Else
color = misColores(2)
indice = 0
End If
'Muestro la fila
response.write("<TR bgcolor = '" + color + "'>")
response.write("<TD><Font face = Verdana size = 2>" + cstr(Admin("CodUsuario")) + "</font></TD>""<TD><Font face = Verdana size = 2>" + Admin("Nombres") + "</font></TD><TD><Font face = Verdana size = 2>" + Admin("Apellidos") + "</font></TD><TD><Font face = Verdana size = 2>"+ Admin("Emails")+"</font></TD><TD><Font face = Verdana size = 2>"+cstr(Admin("Telefonos"))+"</font></TD><TD><Font face = Verdana size = 2>"+Admin("Direcciones")+"</font></TD><TD><Font face = Verdana size = 2>"+Admin("Departamentos")+"</font></TD>")
response.write("<TD><Font face = Verdana size = 1><B><A HREF='borrausuario.aspx?cod=" + cstr(Admin("CodUsuario")) + "'>Borrar</A></B></font></TD>")
response.write("<TD><Font face = Verdana size = 1><B><A HREF='modifusuario.aspx?cod=" + cstr(Admin("CodUsuario")) + "'>Modificar</A></B></font></TD>")
response.write("</TR>")

loop
response.write("</TABLE>")

gracias
Salu2

[mjesus20]

en que componente pones los datos de las tablas

[Facha]

Este es el codigo que va antes de la tabla en el sub_page load

'creo los strings de conexión y sql
dim strConexion as string = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\acontecer.mdb"
Dim textoSQL as string = "Select * from Suscripciones"

'vector con los colores a utilizar
Dim misColores(2) As String

misColores(0) = ""
misColores(1) = "#B8E8FE"
misColores(2) = "#E6FFE6"

dim numColores
numColores = 2
dim indice
indice = 0
dim color

'creo el objeto conexion
dim MiConexion = new OleDbConnection(strConexion)

'creo el objeto comando sobre la conexion creada
dim MiComandoSQL = new OleDbCommand(textoSQL, MiConexion)

'abro la conexion
MiConexion.Open()

'defino el datareader
dim Admin as OleDBDataReader

'Ejecuto el comando
Admin = MiComandoSQL.ExecuteReader()