Dim bookmark as variant “第一个按”钮的事件代码 Private Sub Commandl Click If Not datal Recordset BOF Then Datal Recordset. Move Previous Else MsgBox"已到数据库头,无法再移动!", vb Critical,"数据库 Datal. recordset. move first End If Me. Refresh End Sub 按钮的事件代码 Private Sub Command2 Click If Not Datal Recordset EOF Then Datal recordset movenext Else MsgBox"已到数据库尾,无法再移动!", acRitical,"数据库" Datal Recordset Movelast End if Me. Refresh End subDim mbookmark As Variant “第一个按”钮的事件代码 Private Sub Command1_Click() If Not Data1.Recordset.BOF Then Data1.Recordset.MovePrevious Else MsgBox "已到数据库头，无法再移动！", vbCritical, "数据库" Data1.Recordset.MoveFirst End If Me.Refresh End Sub “下一个”按钮的事件代码 Private Sub Command2_Click() If Not Data1.Recordset.EOF Then Data1.Recordset.Movenext Else MsgBox "已到数据库尾，无法再移动！", vbCritical, "数据库" Data1.Recordset.Movelast End If Me.Refresh End Sub