#VB6+ADO+ListView数据库分页显示 搜索结果
Dimlink1AsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimpageAsIntegerDimpubdatapathAsStringSubopendatabase(datapathAsString)'打开数据库函数page=1'首次定义打开时的页码为1