请问如何才能成功设计找回密码

我是一名初学者，我在《ACCESS2003数据库综合应用》一书中仿照其第十一节的内容设计一个登录及权限管理，前面的登录和注册都很顺利，可是在做到‘找回密码’这一步时，点击‘找回密码’窗体中的确定按钮，就总是跳出一个对话框，提示“对象不支持该属性或方法，以及后面的权限管理也是一样按照书上介绍的操作结果运行宏的时候也总是跳出一个提示“对象不支持该属性或方法，我想请问各位老师，我不知道是我的窗体哪一步做错了还是因为别的什么，怎么总是不成功，下面是它的代码我不知道有错没有，请各位老师帮我指点一下迷津，谢谢！

Private Sub 确定_Click()
On Error GoTo Err_确定_Click
'定义用保存是否找到忘记密码的布尔变量
Dim blnExist As Boolean
Dim STemp As String  '定义字符型变量
Dim Rs As ADODB.Recordset  '定义数据集变量
'为定义的数据集变量分配空间
Set Rs = New ADODB.Recordset
'为打开数据表‘查询语句’字符变量赋值
STemp = "Select * From 系统用户"
'打开‘系统用户’数据表
Rs.Open STemp, CurrentProject.Counnection, adOpenKeyset, adLockOptimistic
'把blnExist变量值设置为‘假’
blnExist = False
'判断‘密码提示’组合框和‘密码答案’文本框内是否为空
If IsNull(Me![密码提示]) Then
    MsgBox "请输入‘密码提示’！", vbInformation, "进销存管理系统"
    Me![密码提示].SetFocus
 ElseIf IsNull(Me![密码答案]) Then
    MsgBox "请输入‘密码答案’！", vbInformation, "进销存管理系统"
    Me![密码答案].SetFocus
Else
 Rs.MoveFirst
 For i = 1 To Rs.RecordCount
     '判断用户输入的‘密码提示’和‘密码答案’是否与用户注册时设置的时候相同
     If Rs("用户ID") = Me![用户ID] And Rs("密码提示") = Me![密码提示] _
            And Rs("密码答案") = Me![密码答案] Then
        '把blnExist变量值设置为‘真’
        blnExist = True
        '如果相同，则弹出‘找回密码’信息窗口
        MsgBox "你的密码是：" & Rs("密码") & Chr(13) & Chr(10) & _
        "请您牢记密码", vbInformation, "找回密码"
        Exit Sub
        '退出子过程
        Else
          Rs.MoveNext   '把记录指针移到下一条记录
        End If
    Next i
End If
'判断是否找到‘忘记的密码’信息窗口
If blnExist = False Then
   '如果没有找到‘忘记的密码’则弹出‘找不到密码’信息窗口
   MsgBox "没有找到密码，请核实输入的‘密码提示’和‘密码答案’是否正确！", _
     vbInformation, "找不到密码"
 End If
 '释放数据集空间
 Set Rs = Nothing
Exit_确定_Click:
  Exit Sub
Err_确定_Click:
   MsgBox Err.Description
   Resume Exit_确定_Click
End Sub