[求助]记录更新问题

我有一个窗体，利用RECORDSET.CLONE实现查询并修改记录，希望在修改完后有个提示，如果点击确定，程序没有问题，如果点击否，程序会出现问题。问题记录如下：“运行时错误：3426，该操作被关联对象取消”，进入调试界面里，代码里   Me.Bookmark = rs.Bookmark  会出现**。请问我该如何解决？这个问题，谢谢！
代码如下：
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If MsgBox("该生的学历记录已被修改，是否要保存？", vbDefaultButton2 + vbNoYes) = vbNoThen
        Cancel = True
    End If
End Sub


Private Sub 学号_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset
   rs.FindFirst "[学号] = '" & Me![学号] & "'"
    Me.Bookmark = rs.Bookmark   
   End Sub