做法：

1、取得原始的整个记录集rs1，并对其设置分页大小。

2、创建一个新记录集rs2,把rs1上相应页面上的记录复制到rs2上。

3、在表格上显示rs2，这样就是一个页面的记录集。

'20130504  白话魔法师
 
 
Dim cn      As New ADODB.Connection
Dim rs1     As New ADODB.Recordset '原始记录集
Dim rs2     As New ADODB.Recordset '每个页面的记录集
Dim intPage As Integer '当前页数
 
Private Sub Command1_Click()
    Dim s As String
 
    If intPage < rs1.PageCount Then  '指定页面，每点一下就是下一个页面
        intPage = intPage + 1
    Else
        MsgBox "已经是最后一页"
    End If
    Call rsPage(rs1,intPage)  '调用分页显示
End Sub
 
Private Sub Form_Load()
    intPage = 0
    hfg.FixedCols = 0
    hfg.Height = hfg.RowHeight(0) * 6 + 290 + 20
    hfg.Width = hfg.CellWidth * 6 + 30 * 6
    cn.Open "Provider=sqlOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=book;Data Source=ZHENG"
    rs1.Open "select * from 书名",cn,adOpenKeyset,adLockOptimistic,adCmdText
    rs1.PageSize = 6
End Sub
 
Private Sub rsPage(ByRef rsFirst As Recordset,ByVal intPageNumber As Integer)
    Dim i As Integer,j As Integer
 
    For i = 0 To rsFirst.Fields.Count - 1 '创建新表rs2,加入相关字段
        rs2.Fields.Append rsFirst.Fields(i).Name,rsFirst.Fields(i).Type,rsFirst.Fields(i).DefinedSize,rsFirst.Fields(i).Attributes
    Next i
 
    rs2.Open
    rsFirst.AbsolutePage = intPageNumber
 
 
    For i = 1 To rsFirst.PageSize  '把相应页的数据复制到新表rs2中
        rs2.AddNew
 
        For j = 0 To rsFirst.Fields.Count - 1
            rs2.Fields(j) = rsFirst.Fields(j)
        Next j
 
        rs2.Update
        rsFirst.MoveNext
 
        If rsFirst.EOF Then Exit For    '判断是否到结尾，因为最后一面，可能不是整个大小
    Next i
 
    Set hfg.DataSource = rs2
    rs2.Close
End Sub