Paging for Asp.net Nested Repeater

Private table As New DataTable() 
Private PDS As New PagedDataSource() 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
    If Not Page.IsPostBack Then 
        InitData() 
    End If 
End Sub 
Private Sub InitData()

    
    Dim conn As New SqlConnection("Data Source=Localhost;Initial Catalog=Northwind;User ID=sa") 
    Dim cmm As New SqlCommand("SELECT [CustomerID], [CompanyName] FROM [Customers]") 
    cmm.Connection = conn 
    Dim DA As New SqlDataAdapter() 
    DA.SelectCommand = cmm 
    Dim DS As New DataSet() 
    DA.Fill(DS) 
    table = DS.Tables(0) 
    If Session("data") IsNot Nothing Then 
        Session("data") = table 
    Else 
        Session.Add("data", table) 
    End If 
    Pagging(0) 
End Sub

Protected Sub Pagging(ByVal index As Integer) 
    PDS.DataSource = DirectCast(Session("data"), DataTable).DefaultView 
    PDS.CurrentPageIndex = index 
    PDS.AllowPaging = True 
    PDS.PageSize = 20 
    Me.Repeater2.DataSource = PDS 
    Me.Repeater2.DataBind() 
    Dim ddl As DropDownList = DirectCast(Me.Repeater2.Controls(Me.Repeater2.Controls.Count - 1).FindControl("PageCount"), DropDownList) 
    If ddl IsNot Nothing Then 
        For i As Integer = 1 To PDS.PageCount - 1 
            ddl.Items.Add(i.ToString()) 
        Next 
    End If 
End Sub

Public Sub PageIndex(ByVal sender As Object, ByVal e As EventArgs) 
    Dim ddl As DropDownList = DirectCast(Me.Repeater2.Controls(Me.Repeater2.Controls.Count - 1).FindControl("PageCount"), DropDownList) 
    Pagging(Integer.Parse(ddl.SelectedItem.Text) - 1) 
End Sub