สอบถามเกี่ยวกับการสร้าง Paging ให้กับข้อมูลเพื่อแสดงหน้าเว็บไซต์หน้าละ 20 รายการข้อมูล โดย Asp.net

Imports System.Data
Imports System.Data.SqlClient

Public Class Index_Data_Admin
    Inherits PFPPagesec

    Dim con As New SqlConnection(Me.GSqlCon)
    Dim str As String
    Dim com As SqlCommand
    Dim sqlda As SqlDataAdapter
    Dim ds As DataSet

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack() Then
            page_length.Text = "20"
            start_page.Text = "0"
            bindlist()
        End If
    End Sub

    Public Sub First_record(ByVal s As Object, ByVal e As EventArgs)
        start_page.Text = "0"
        bindlist()
    End Sub

    Public Sub Previous_record(ByVal s As Object, ByVal e As EventArgs)
        start_page.Text = CStr(CInt(start_page.Text) - CInt(page_length.Text))
        If CInt(start_page.Text) < 0 Then
            start_page.Text = "0"
        End If
        bindlist()
    End Sub

    Public Sub Next_record(ByVal s As Object, ByVal e As EventArgs)
        If CInt(start_page.Text) + 1 < CInt(count_data.Text) Then
            start_page.Text = CStr(CInt(start_page.Text) + CInt(page_length.Text))
        End If
        bindlist()
    End Sub

    Public Sub Last_record(ByVal s As Object, ByVal e As EventArgs)
        Dim i As Integer

        i = CInt(count_data.Text) Mod CInt(page_length.Text)
        If i > 0 Then
            start_page.Text = CStr(CInt(count_data.Text) - i)
        Else
            start_page.Text = CStr(CInt(count_data.Text) - CInt(page_length.Text))
        End If
        bindlist()
    End Sub

    Sub bindlist()
        con.Open()
        str = "select * from V_USER where Type='ADMIN' order by Username asc "
        sqlda = New SqlDataAdapter(str, con)
        ds = New DataSet()

        If Not Page.IsPostBack() Then
            sqlda.Fill(ds)
            count_data.Text = CStr(ds.Tables(0).Rows.Count)
        End If

        sqlda.Fill(ds, CInt(start_page.Text), CInt(page_length.Text), "V_USER")
        datalist_paging.DataSource = ds
        datalist_paging.DataMember = "V_USER"
        datalist_paging.DataBind()
        con.Close()
        navigate()
    End Sub

    Private Sub navigate()
        'lblshow.ForeColor = Drawing.Color.Tomato
        'lblshow.BackColor = Drawing.Color.Yellow
        lblshow.Text = "จำนวน " & count_data.Text
        lblshow.Text += " รายการ - Page :<b> "
        lblshow.Text += CStr(CInt(CInt(start_page.Text) / CInt(page_length.Text) + 1))
        lblshow.Text += "</b> of <b>"

        If (CInt(count_data.Text) Mod CInt(page_length.Text)) > 0 Then
            lblshow.Text += CStr(CInt(CInt(count_data.Text) / CInt(page_length.Text) + 1))
        Else
            lblshow.Text += CStr(CInt(count_data.Text) / CInt(page_length.Text))
        End If
        lblshow.Text += "</b>"
    End Sub

End Class

<asp:Content ID="Content2" ContentPlaceHolderID="CD" runat="server">
              <div class="row mt">
    <div class="col-md-12">
        <div class="content-panel">                          
 
<asp:DataList ID="datalist_paging" Runat="server">
    <HeaderTemplate>
       <table class="table table-striped table-advance table-hover">
         <h3><i class="fa fa-angle-right" style="padding-left:15px"></i> ข้อมูลผู้ดูแลระบบ</h3>
         <hr>
         <thead>
         <tr>
            <th></th>
            <th width="100px">รหัสพนักงาน</th>
            <th width="100px">ชื่อ</th>
            <th width="150px">นามสกุล</th>
            <th width="350px">ตำแหน่ง</th>
            <th width="50px">แก้ไข</th>
            <th width="50px">ลบ</th>    
        </tr>
        </thead>
    </HeaderTemplate>
    <ItemTemplate>
            <td><%# Eval("Username")%></td>
            <td>คุณ<%# Eval("name")%></td>
            <td><%# Eval("surname")%></td>
            <td><%# Eval("POSITION_NAME")%></td>
            <td><a href="Index_Admin_Edit.aspx?Username=<%# Eval("Username")%>" class="btn btn-primary btn-xs"><i class='fa fa-pencil'></i></a></td>
            <td><a class="btn btn-danger btn-xs"><i class="fa fa-trash-o"></i></a></td>
    </ItemTemplate>
    <FooterTemplate>
     </table>
    </FooterTemplate>
</asp:DataList>
    <asp:label ID="start_page" Visible="False" Runat="server" />
    <asp:label ID="page_length" Visible="False" Runat="server" />
    <asp:label ID="count_data" Visible="False" Runat="server" />
</div>
<div class="showback">
    <h4><i class="fa fa-angle-right"></i>
        <asp:label ID="lblshow" Runat="server" Font-Bold="False" />
    </h4>
    <div class="btn-group"> 
        <button ID="A1" type="button" class="btn btn-default" onserverclick="First_record" runat="server"><<</button>  
        <button ID="Previousrecord" type="button" class="btn btn-default" onserverclick="Previous_record" runat="server"><</button>
        <button ID="Nextrecord" type="button" class="btn btn-default" onserverclick="Next_record" runat="server">></button>
        <button ID="A2" type="button" class="btn btn-default" onserverclick="Last_record" runat="server">>></button>
    </div>      					
</div><!-- /content-panel -->
    </div><!-- /col-md-12 -->
              </div><!-- /row -->   
</asp:Content>