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'使第一条和上一条按钮不