'Inserisco l'arraylist nel pageddatasource
Dim paginazione As New PagedDataSource
paginazione.DataSource = lista

Dim objRS As OleDbDataReader
objRS = myCmd.ExecuteReader()

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim conn As New OleDbConnection(ConfigurationManager.ConnectionStrings("myConnectionString2").ConnectionString)
        Dim myCmd As New OleDbCommand()

        Dim sql As String = "SELECT * FROM tabella1"
        myCmd.Connection = conn
        myCmd.CommandText = sql

        Try
            conn.Open()
            Dim objRS As OleDbDataReader
            objRS = myCmd.ExecuteReader()

            ' Prendo il numero di pagina dalla collection QueryString
            Dim numero As Integer = 1
            If Not Request.QueryString("pagina") Is Nothing Then
                numero = Convert.ToInt32(Request.QueryString("pagina"))
            End If

            ' creo una lista per il repeater
            'Dim lista As New ArrayList
            'For i As Integer = 1 To objRS.c
            'lista.Add("articolo " + i.ToString())
            'Next

            'Inserisco l'arraylist nel pageddatasource
            Dim paginazione As New PagedDataSource

            paginazione.DataSource = objRS
            paginazione.AllowPaging = True
            paginazione.PageSize = 4
            paginazione.CurrentPageIndex = numero - 1

            ' Modifico i link per cambiare pagina
            pagina.InnerText = numero.ToString()
            If Not paginazione.IsFirstPage Then
                prima.HRef = "Default2.aspx?pagina=" + (numero - 1).ToString()
            End If
            If Not paginazione.IsLastPage Then
                dopo.HRef = "Default2.aspx?pagina=" + (numero + 1).ToString()
            End If

            ' Visualizzo i dati
            elenco.DataSource = paginazione
            elenco.DataBind()

            'RptCategorie.DataSource = objRS
            'RptCategorie.DataBind()

            objRS.Close()
            conn.Close()
        Catch ex As Exception
            Response.Write("ERRORE CONNESSIONE DB")
        End Try

    End Sub