求救代码问题

DULANG8446

Private Sub 确定_click()
Dim r As QueryDef
Dim s As String


s = DLookup("[密码]","用户", "[用户名]=""" & Txtusername & """")

If old_pass = s Then

Set r =CurrentDb.QueryDefs("修改密码")

r.sql = "UPDATE 用户 SET 密码 = """ + new_pass + """ where 用户名 = """ + Txtusername + """"

r.Execute

MsgBox "您已经成功修改了密码！"

Else

MsgBox "密码错误！"

End If
End Sub






ACCESS里面的修改密码的代码，调试的时候出现：r As QueryDef  弹出以下框

编译错误：用户定义类型未定义



是什么原因啊，请高手帮我改一下。

kangking

在引用中添加对DAO的引用试试。

DULANG8446

怎么在引用中添加对DAO的引用试试？
我是新手来的，不明白。

kangking

在VBE（VB编辑）下，工具－－引用－－microsoft dao 3.x....前打上勾－－确定。

DULANG8446

还是不行啊~~~按了楼上的方法去设置过了，但是运行的时候不行

kangking

请将你的示例放上来。