我用VB和SQL SERVER作了个宾馆管理系统,调试时有点问题请大家帮忙看看,万分感谢!

我加了登陆设置后程序就出现问题,总是一点运行就出现"method or date not found"然后就在公共模块出现提示高亮显示,如下
Sub Main()
Dim fLogin As New frmLogin
fLogin.Show vbModal
If Not fLogin.OK Then '提示.ok是高亮显示的
'Login Failed so exit app
End
End If
Unload fLogin

Set fMainForm = New frmMain
fMainForm.Show
End Sub
整个都不能运行,但是如果我取消登陆框就没有任何问题,这是怎么回事呢?谢谢高人指点!小妹鞠躬了!
我核对了其他的登陆框都是frmLogin有.ok这个变量,但是我的这个没有,可是我核对了登陆框的属性都是对的啊,我还正在试,谢谢你们的帮助!