Nothing

Private Sub Command5_Click()
   on error resume next
   If mrc.RecordCount >= 1 Then
        mrc.MoveFirst '注意换行
        Call DataGrid1_Click
    End If
End Sub

Private Sub Command6_Click()
   on error resume next
   If mrc.RecordCount >= 1 Then
        mrc.MoveLast
        Call DataGrid1_Click
    End If
End Sub