分页显示记录正如我们在大学里选课时遇到的，每页显示多少科目，共有多少页。其实，这里主要用到的是Data Grid控件。接下来我来介绍一下关于它的知识。

一.原理：将原记录页的数据复制到一个新的记录集中，再将其绑定到Data Grid控件上，这样就能显示原记录页中的所有数据了！正如，我们要将母鸡下的蛋放进篮子里，我们吃的时候要从篮子里拿一样！

这里的新纪录集就相当于篮子！

二、关于Data Grid控件

pagesize:一个记录中包含记录的个数

pagecount：返回一个记录集的记录页总数

absolutepage：返回当前记录页编号

三、编写流程

四、关于分页显示部分代码解析

public sub showdata(byval intpage as integer)

'实现分页显示记录功能

dim objdatasource as new recordset 'objdatasource ’相当于原理中的篮子，即新的记录集

dim intpagecount as integer,intrecord as integer

'intpagecount表示共有多少条记录

’intrecord表示第几条记录

for intrecord = 0 to objrs.field.count-1 '表示记录的字段数

objdataresource.fields.appendobjrs.fields(intrecord).name,advarchar,objrs.fields (inttecord).definedsize '插入字段名append为插入方法

'objrs相当于原记录集

next

......

end sub