vb.net分页问题，新手送分

html里的代码为：
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="lx.aspx.vb" Inherits="lx" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>无标题页</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Repeater ID="repmain" runat="server" >
        <HeaderTemplate>
        <table>
        <tr>
        <td>
         i am head
        </td>
        </tr>
        </HeaderTemplate>        <ItemTemplate>
        <tr>
        <td>
        <a href="input.aspx?id=<%#eval("id")%>"> <%#Eval("title")%></a>
        </td>
        </tr>
        </ItemTemplate>
        <AlternatingItemTemplate>
       <tr>
       <td>
       <font  color="red"><%#Eval("time")%></font>
       </td>       
       </tr> 
        </AlternatingItemTemplate>
        <SeparatorTemplate>
        </SeparatorTemplate>
        <FooterTemplate>
        </table>
        </FooterTemplate>
        </asp:Repeater>
        <asp:AccessDataSource ID="abcaa" runat="server" DataFile="~/App_Data/message.mdb"
            SelectCommand="SELECT [name], [mg], [title], [time], [id] FROM [message]"></asp:AccessDataSource>
            <table>
            <tr>
            <td>
            <asp:HyperLink runat="server" ID="page1" />
            </td>
            </tr>
            <tr>
            <td>
             
            </td>
            </tr>
            </table>
    
    </div>
    </form>
</body>
</html>aspx.vb的代码为：
Partial Class lx
    Inherits System.Web.UI.Page    Protected Sub Repeater1_DataBinding(ByVal sender As Object, ByVal e As System.EventArgs) Handles repmain.DataBinding    End Sub    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Dim myconn As New Data.OleDb.OleDbConnection()
            Dim mycommand As New Data.OleDb.OleDbCommand()
            Dim sql As String
            Dim adapter As New Data.OleDb.OleDbDataAdapter()
            Dim ds As New Data.DataSet
            myconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\lyb\App_Data\message.mdb"
            sql = "select*from message"
            mycommand.Connection = myconn
            mycommand.CommandText = sql
            adapter.SelectCommand = mycommand
            adapter.Fill(ds, "message")
            Dim MaxPage As Integer      '最大页数            Dim RowSum As Integer       '最大行数            Dim CurPage As Integer      '当前页数            Dim pagesize As Integer       '每页显示数量
            Try
                RowSum = ds.Tables(0).Rows.Count
            Catch
                RowSum = 0
            End Try
            Dim pageds As New PagedDataSource()
            pageds.DataSource = ds.Tables(0).DefaultView
            pageds.AllowCustomPaging = True
            pageds.PageSize = 2          '设置每页最大显示数为10
            pagesize = pageds.PageSize            If Request.QueryString("page") <> "" Then                        '如果没有指定页数默认为第一页
                CurPage = Convert.ToInt32(Request.QueryString("Page"))
            Else
                CurPage = 1
            End If            If RowSum Mod pagesize > 0 Then         '计算出最大页数
                '有余数要加1
                MaxPage = RowSum \ pagesize + 1
            Else
                '正好除尽
                MaxPage = RowSum \ pagesize
            End If
            '以下开始设置翻页
            pageds.CurrentPageIndex = CurPage - 1
            page1.Text = "共有留言 " & RowSum & " 条，分 " & MaxPage & " 页，" & "当前为第 " & CurPage & " 页，" & "每页 " & pagesize & " 条"
            '数字链接
            Dim i As Integer
            For i = CurPage - 5 To CurPage + 5
                If CurPage = i Then
                    page1.Text &= "<font color=#FF0000><strong>" & CurPage & "</strong></font>&nbsp;"
                ElseIf i <= MaxPage And i >= 1 Then                    page1.Text &= "<a href='" & Request.CurrentExecutionFilePath & "?Page=" & i & "'>" & i & "</a>&nbsp;"
                End If
            Next
            repmain.DataSource = pageds
            repmain.DataBind()
        End If    End SubEnd Class
我要问的是为什么，分不了页，输出还是在第一页全部输出，点其他页的时候，还是全部输出。