编译错误不知道怎么搞定了，请高手指点
下面的这段程序在执行的时候总是提示编译有错误，找不到方法或数据成员。
不晓得是怎么一回事，哪位大虾知道，请提示一下。谢谢！


Private Sub Cmd_OK_Click()
Dim NameKey As Single
Dim PasswordKey As Single

NameKey = txtUser
PasswordKey = txtPwd
'判断用户是否存在
If MyUser.In_DB(NameKey) = False Then
MsgBox "用户名不存在"
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭"
DBapi_Disconnect
End
Else
Exit Sub
End If
End If
'判断密码是否正确
MyUser.GetInfo (NameKey)
If MyUser.UserPwd <> PasswordKey Then
MsgBox "密码错误"
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭"
DBapi_Disconnect
End
Else
Exit Sub
End If
End If
'登录成功，将当前用户的信息保存在CurUser中
CurUser.GetInfo (MyUser.UserName)
'关闭登录对话框
Unlode Me
End Sub




[解决办法]
MyUser，CurUser的定义在哪呢？
[解决办法]

VB code

除变量都要声明外，CurUser.GetInfo (MyUser.UserName)改成call CurUser.GetInfo (MyUser.UserName)
[解决办法]
VB code
函数或过程调用如果用括号则前面要加call ，否则不能加括号CurUser.GetInfo MyUser.UserName
[解决办法]
call MyUser.GetInfo (NameKey)
或
MyUser.GetInfo NameKey

call CurUser.GetInfo (MyUser.UserName)
或
CurUser.GetInfo MyUser.UserName


[解决办法]
单步执行下看在哪句会报错！