VB 使用DAO对象浏览数据库.rar

VB使用DAO对象浏览数据库 　　rs.MoveFirst'移动记录指针 　　Command1.Enabled=False'使第一条和上一条按钮不可用 　　Command2.Enabled=False 　　Command3.Enabled=True 　　Command4.Enabled=True 　　refreshdbrs'调用自定义方法刷新 　　EndSub 　　PrivateSubCommand2_Click() 　　Ifrs.BOFThen'判断是否到了第一条记录之前 　　Command1.Enabled=False'使第一条和上一条按钮不