关于bookmark的问题

private Sub Form_Load()
 Dim txtsql, msgstring As String
 Dim mrc As Recordset
 Dim Mybook As Variant
 Dim mcclean As Boolean
 txtsql = "select * from zyinfo"
 Set mrc = executesql(txtsql, msgstring)
 mrc.MoveFirst
 '显示数据
 Call viewdata
 '记下当前记录的位置
 Mybook = mrc.Book
 '给标志赋初值
 mcclean = True
 End Sub
'定义viewdata
Public Sub viewdata()
 Text1.Text = mrc.Fields(0)
 Text2.Text = Format(mrc.Fields(3), "yyyy-mm-dd")
 Combo1.Text = mrc.Fields(2)
 Text3.Text = mrc.Fields(1)
 Combo2.Text = mrc.Fields(4)
 Text4.Text = Format(mrc.Fields(6), "yyyy-mm-dd")
 Text5.Text = mrc.Fields(5)
End Sub
Private Sub Command1_Click()  '显示第一条记录
 Dim txtsql, msgstring As String
 Dim mrc As Recordset
 Dim Mybook As Variant
 Dim mcclean As Boolean
 txtsql = "select * from zyinfo"
 Set mrc = executesql(txtsql, msgstring)
   mrc.MoveFirst
      '调用显示数据的函数
   Call viewdata
End SubPrivate Sub Command2_Click()   '显示上一条记录
 Dim txtsql, msgstring As String
 Dim mrc As Recordset
 txtsql = "select * from zyinfo"
 Set mrc = executesql(txtsql, msgstring)
   MsgBox msgstring
   mrc.MovePrevious
   '判断是否到达起始位置
   If mrc.EOF Then
     mrc.MoveLast
   End If
   Call viewdata
   
End SubPrivate Sub Command3_Click()    '显示下一条记录
 Dim txtsql, msgstring As String
 Dim mrc As Recordset
 txtsql = "select * from zyinfo"
 Set mrc = executesql(txtsql, msgstring)
   MsgBox msgstring
   mrc.MoveNext
   '判断是否到达起始位置
   If mrc.EOF Then
     mrc.MoveFirst
   End If
   Call viewdata
End SubPrivate Sub Command4_Click()    '显示最后一条记录
 Dim txtsql, msgstring As String
 Dim mrc As Recordset
 txtsql = "select * from zyinfo"
 Set mrc = executesql(txtsql, msgstring)
   MsgBox msgstring
   mrc.MoveLast
      '调用显示数据的函数
   Call viewdata
End Sub
我的问题是不管点哪一个按钮，记录始终是显示zyinfo中的第一条记录，希望各位
大虾开导小弟，不胜感激！！！