编译异常不知道如何搞定了，请

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


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


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