Paging Certain # records per page .NET style

<SCRIPT language=VB runat="server">

    Sub Page_Load(sender As Object, e As EventArgs) 
       BindGrid
    End Sub

    Sub MyDataGrid_Page(sender As Object, e As DataGridPageChangedEventArgs) 
    dim startIndex as Integer
        startIndex = MyDataGrid.CurrentPageIndex * MyDataGrid.PageSize
    MyDataGrid.CurrentPageIndex = e.NewPageIndex

        BindGrid
    ShowStats
    End Sub

    Sub BindGrid()

        Dim myConnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("DSN_pubs"))
    dim ds as DataSet = new DataSet()
    dim adapter as SqlDataAdapter = new SqlDataAdapter("Select * from Authors", myConnection)
    adapter.Fill(ds,"Authors")

        MyDataGrid.DataSource=ds.Tables("Authors").DefaultView
        MyDataGrid.DataBind()
        ShowStats

    End Sub

    Sub PagerButtonClick(sender As Object, e As EventArgs)
        'used by external paging UI
        Dim arg As string = sender.CommandArgument

        Select arg
            Case "next":
                If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then
                    MyDataGrid.CurrentPageIndex += 1
                End If    
            Case "prev":
                If (MyDataGrid.CurrentPageIndex > 0) Then
                    MyDataGrid.CurrentPageIndex -= 1
                End If    
            Case "last":
                MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1)
            Case Else:
                'page number
                 MyDataGrid.CurrentPageIndex = System.Convert.ToInt32(arg)
        End Select
        BindGrid
    ShowStats
    End Sub

    Sub ShowStats()
        lblCurrentIndex.Text = "CurrentPageIndex is " & MyDataGrid.CurrentPageIndex
        lblPageCount.Text = "PageCount is " & MyDataGrid.PageCount
    End Sub
 </SCRIPT>