VB初学者，请高手来帮帮忙，多谢

VB菜鸟求助，请高手来帮帮忙，谢谢！
我要做了一个VB+SQL的管理系统
在用户登录这个模块出了问题
在登录系统主界面时用了下面这样的程序

Private   Sub   OK_Click(Index   As   Integer)
'To   Do-创建测试密码是否正确
'检查正确密码
Dim   mrc   As   ADODB.Recordset
Dim   txtSQL   As   String
Dim   MsgText   As   String
'发生错误时跳转
On   Error   GoTo   myErr
                '判断输入用户名是否为空
                If   Trim(txtUserName   &   " ")   <>   " "   Then
                            '查找数据库中是否有相同名称的用户
                            txtSQL   =   "selet   *   from   users   where   id= ' "   &   Trim(txtUserName   &   " ")   &   " ' "
                            Set   mrc   =   ExecuteSQL(txtSQL,   MsgText)
                            '记录是否为空
                            If   mrc.EOF   =   True   Then
                                      MsgBox   "没有这个用户，请再重新输入！ ",   vbOKOnly   +   vbExclamation,   "登录 "
                                                    txtUserName.SetFocus
                            Else         '登录成功
                                      '判断用户密码是否正确
                                      If   Trim(txtPassword   &   " ")   =   Trim(mrc!password)   Then
                                                sUserName   =   Trim(txtUserName)
                            Else
                                      MsgBox   "密码错误，再试一次！ ",   vbOKOnly   +   vbExclamation,   "登录 "
                                            txtPassword.SetFocus
                                            txtPassword.SelStart   =   0
                                            txtPassword.SelLength   =   Len(txtPassword.Text)

                                      End   If
                            End   If
                  Else
                            MsgBox   "没有这个用户，请再重新输入！ ",   vbOKOnly   +   vbExclamation,   "登录 "
                            txtUserName.SetFocus
                  End   If
                  '输入错误3次退出系统
                  miCount   =   miCount   +   1
                  If   miCount   =   3   Then
                            Me.Hide
                  End   If
                  Exit   Sub
'显示出错信息
myErr:
      ShowError
End   Sub

调试的时候提示我Main()中的fLoging.OK这个参数不可选

        sub   Main()
        Dim   fLogin   As   New   frmlogin
        fLogin.Show   vbModal
        If   Not   fLogin.OK   Then
                End
        End   If
        Unload   fLogin
        Set   fMainForm   =   New   frmmain
        fMainForm.Show
End   Sub

请问下应该用哪个参数呢？知道的帮帮我啊！急~~谢谢了！

[解决办法]
fLogin窗体有OK这个变量吗,是Public OK as boolean吗