vb登陆错误三次而没有退出程序,是什么原因?高手看一下哪里错了,谢了哈!

Private Sub cmdOK_Click()

Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String

username = ""

If Trim(txtUserName.Text = "") Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
mrc.Close
Me.Hide
username = Trim(txtUserName.Text)
Else
MsgBox &quo

vb登陆错误三次而没有退出程序,是什么原因?高手看一下哪里错了,谢了哈! VB编程,在密码登陆框中,当用户输入用户名错误的时候,怎么让用户重新输入用户名和限制仅输入三次即退出运行 VB程序错误 街头篮球 退出程序错误 VB安装出现：未知的错误，退出 VB修改时间 权限不够时会出错 怎么在没有权限时侯程序退出??? 如何在VB中退出循环程序？ 帮帮我VB程序错误 QQ为什么要登陆好几次才能上去?头几次登陆就自动退出，总出现错误。我电脑没有病毒。 街头篮球 退出程序发生错误