运行这段VBA代码出现“运行时错误438，对象不支持该属性或方法”怎么解决

感觉应该是Me!user和Me!password这2个名字的问题。从上下文来看，是2个文本框控件。如果其Name属性本身就叫做Me!user和Me!password，请改一下，如Meuser和Mepassword；如果是user和password，则Me后面应该是.而不是!，或者去掉Me直接引用。
本人机器上没有VB6，在VS 2012环境下设置一个文本框的Name属性为Me!user，提示“属性值无效”。

Private Sub Command5_Click()
If Me!user = "" Or Me!Password = "" Then
MsgBox "账号或者密码为空，请重新输入", vbCritical, "error"
Me!user.SetFocus
ElseIf Me!user = "小明" And Me!Password = "123" Then
MsgBox "欢迎使用", vbInformation, "成功"
Else
MsgBox "密码错误，请退出", vbCritical, "警告"
DoCmd.Close
End If

'''''''''''给你简化了

错误的那句话发出来看看