Option Explicit

Dim conn As ADODB.Connection

Dim lCurrentPage As Long


Private Sub cmdNext_Click()

 lCurrentPage = lCurrentPage + 1

 Call Loadcontrol(lCurrentPage)

End Sub


 

Private Sub cmdPrevious_Click()

 If lCurrentPage > 1 Then

 lCurrentPage = lCurrentPage - 1

 Call Loadcontrol(lCurrentPage)

End If

End Sub

 

Private Sub Form_Load()

 

 Set conn = New ADODB.Connection

conn.CursorLocation = adUseClient

 conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test2000.mdb;"

 

lCurrentPage = 1

 Call Loadcontrol(lCurrentPage)

 

End Sub

Private Sub Loadcontrol(lPage As Long)

 Dim adoPrimaryRS As ADODB.Recordset

 Dim lPageCount As Long

 Dim nPageSize As Integer

Dim lCount As Long

 

'每页显示的纪录

 nPageSize = 10

 Set adoPrimaryRS = New ADODB.Recordset

 adoPrimaryRS.Open "select * from numbers", conn, adOpenStatic, adLockOptimistic

 

 adoPrimaryRS.PageSize = nPageSize

 '页数

 lPageCount = adoPrimaryRS.PageCount

 If lCurrentPage > lPageCount Then

 lCurrentPage = lPageCount

 End If

 

 adoPrimaryRS.AbsolutePage = lCurrentPage

 '定义另一个记录集

Dim objrs As New ADODB.Recordset

 '添加字段名称

For lCount = 0 To adoPrimaryRS.Fields.Count - 1

 objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize

 Next

 '打开记录集

objrs.Open

 '将指定记录数循环添加到objrs中

 For lCount = 1 To nPageSize

 objrs.AddNew

 objrs!id = adoPrimaryRS!id

 objrs!anumber = adoPrimaryRS!anumber

 adoPrimaryRS.MoveNext

 Next

 '绑定

 Set DataGrid1.DataSource = objrs

 

 '在文本框显示页数

 txtPage = lPage & "/" & adoPrimaryRS.PageCount

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

If Not conn Is Nothing Then

 conn.Close

End If

 Set conn = Nothing

End Sub

‘文本框中输入页数，回车跳转到指定位置

Private Sub txtPage_KeyDown(KeyCode As Integer, Shift As Integer)

 lCurrentPage = Val(txtPage.Text)

 Call Loadcontrol(lCurrentPage)

End Sub

每次到了最后一页的时候，就报错，不知道是为什么，请各位帮忙给看一下。