代码错误求解

Private Sub 修改密码_Click()
Dim r As QueryDef
  Dim s As String
  s = DLookup("[密码]", "员工", "[姓名]= """ & userName & """")
  If Old_pass = s Then
Set r = CurrentDb.QueryDefs("修改密码")
  r.SQL = "UPDATE 员工 SET 密码 = """ + New_pass + """ where 姓名 = """ + userName + """"
  r.Execute
  MsgBox "已经成功修改了密码！"
  Else
  MsgBox "密码错误"
  End If
 
End Sub
此代码出现运行时错误3265，显示这个集合中找不到此项目。不知如何解决，特请教各位高手帮忙，谢谢。附截图