Public pageint As Integer 这里的pageint在"上一页"键上好象无效?它的值变负数了,我不得其解.请求帮助!

Imports System.Data
Imports System.Data.OleDbPartial Class room_htl_Default
    Inherits System.Web.UI.Page
 
    Public str_CON As OleDbConnection  '连接数据库定义共用
    Public str_mdb As String   '连接数据表定义共用
    Public pageCOUNT As Integer = 3  '定义一次显示多少数据,须与DATAGRID表相同
    Public dataCOUNT As Integer   '用于获得要显示的数据有多少
    Public countPAGE As Integer    '用于获得有多少页
    Public pagePRI_NEXT As Integer   '用于获得当前是多少页码.
    Public pageint As Integer   '为了判断下一页和上一页用
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dtCmd As OleDbDataAdapter
        Dim dtSet As DataSet
        str_mdb = "select  * from daquan_lbt"
        str_CON = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("~/command/daquan_data.mdb"))
        dtCmd = New OleDbDataAdapter(str_mdb, str_CON)
        dtSet = New DataSet
        dtCmd.Fill(dtSet)
        dataCOUNT = dtSet.Tables(0).Rows.Count  '得到总数据        countPAGE = dataCOUNT \ pageCOUNT
        If dataCOUNT Mod pageCOUNT <> 0 Then   '确定多少页
            countPAGE = countPAGE + 1
        End If
        If dataCOUNT > pageCOUNT Then    '数据大于3时,为了开始显示3条数据
            Dim dataset As DataSet = New DataSet
            dtCmd.Fill(dataset, 0, pageCOUNT, "daquanmdb")
            Me.datalist1.DataSource = dataset.Tables(0).DefaultView
            Me.datalist1.DataBind()
        Else
            Me.datalist1.DataSource = dtSet.Tables(0).DefaultView
            Me.datalist1.DataBind()
        End If        If countPAGE >= 1 Then
            button1.Enabled = True
            button2.Enabled = False
        Else
            button1.Enabled = False
            button2.Enabled = False        End If
       
    End Sub    Protected Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
        pageint = pageint + 1
        Dim pageTER As OleDbDataAdapter = New OleDbDataAdapter(str_mdb, str_CON)
        Dim pageSET As DataSet = New DataSet
        pageSET.Clear()
        pageTER.Fill(pageSET, pageint * pageCOUNT, pageCOUNT, "daquanmdb")
        Me.datalist1.DataSource = pageSET.Tables("daquanmdb")
        Me.datalist1.DataBind()        If countPAGE - 1 <= pageint Then   '检查下一页键            button1.Enabled = False
        Else
            button1.Enabled = True
        End If        If pageint <= 0 Then        '检查上一页键
            button2.Enabled = False
        Else
            button2.Enabled = True
        End If    End Sub    Protected Sub button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button2.Click
        pageint = pageint - 1
      
        Dim pageTER As OleDbDataAdapter = New OleDbDataAdapter(str_mdb, str_CON)
        Dim pageSET As DataSet = New DataSet
        pageSET.Clear()
        pageTER.Fill(pageSET, pageint * pageCOUNT, pageCOUNT, "daquanmdb")
        Me.datalist1.DataSource = pageSET.Tables("daquanmdb")
        Me.datalist1.DataBind()        If pageint <= 0 Then          '检查上一页键
            button2.Enabled = False
        Else
            button2.Enabled = True
        End If        If pageint >= countPAGE Then           '检查下一页键
            button1.Enabled = False
        Else
            button1.Enabled = True
        End If
    End Sub
End Class
出错提示:-3 的 StartRecord 值无效；该值必须大于等于 0。
参数名: startRecord