当记录很多的时候，我们就需要对记录进行分页显示了。这样的好处是，保持界面的美观，不会破坏窗体的结构；数据查看更加清晰明了，方便管理。
在Access中，我们习惯用子窗体来显示记录。他并不像.net 那样，可以用控件来绑定数据。然后设置对每条记录的控制，只需要把勾打上，就能实现分页等功能。而我们在Access中设置数据分页就需要一定的代码了。
下面的示例就是通过DAO来都子窗体的数据进行分页查看，能上下翻页查看，设置每一页的显示多少条记录，还能跳转到特定的页码。
关键代码：
Private Function ChangeRstPage(frm As Form, rst As DAO.Recordset, sFldID As String, iPageRecCount As Integer, iCurrentPage As Integer)
' 将按页码筛选后的记录集作为窗体记录集
Dim iStartNumber As Integer
Dim lngStartID As Long
Dim lngLastID As Long
iStartNumber = (iCurrentPage - 1) * iPageRecCount
With rst
If .RecordCount > 0 Then
.MoveFirst
.Move iStartNumber
If .EOF Then Exit Function
lngStartID = .Fields(sFldID)
.Move iPageRecCount - 1
If .EOF Then .MoveLast
lngLastID = .Fields(sFldID)
.Filter = sFldID & " Between " & lngStartID & " And " & lngLastID
End If
Set frm.Recordset = .OpenRecordset
End With
End Function
