“第一个”按钮的事件代码 Private Sub Command3 Click Datal Recordset MoveFirst Me. Refresh End Sub 末一个”按钮的事件代码 Private Sub Command Click Datal Recordset Movelast Me. refresh End Sub “查找”按钮的事件代码 Private Sub Commands Click( Dim mno As String mno= InputBox("请输入员工编号","查找") Datal recordset. Findfirst"员工编号="&mno&""l If Datal. Recordset NoMatch Then MsgBox"无此编号","提示" End Sub“第一个”按钮的事件代码 Private Sub Command3_Click() Data1.Recordset.MoveFirst Me.Refresh End Sub “末一个”按钮的事件代码 Private Sub Command4_Click() Data1.Recordset.Movelast Me.Refresh End Sub “查找”按钮的事件代码 Private Sub Command5_Click() Dim mno As String mno = InputBox$("请输入员工编号", "查找") Data1.Recordset.FindFirst "员工编号='" & mno & "'" If Data1.Recordset.NoMatch Then MsgBox "无此编号", , "提示" End Sub