paginación

[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()