vb 登陆后说没有这个用户

补充问题说明：我的登录代码是：Option Explicit
Public ok As Boolean
Dim micount As Integer
Private Sub cmdCancel_Click()
ok = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
'ToDo: create test for correct password
'check for correct password

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

vb用户登陆界面 vb登陆界面用户身份的验证通过数据库中的表查询后确定是否合法用户代码怎么写? 用vb编一个用户登陆框 VB中如何实现用户登陆界面 vb用户登陆设定默认管理员用户问题 xp用户登陆 没有用户可以选择 登陆XP时，没有用户登陆窗口 新建电脑用户后，怎么该用户登陆后什么也没有？是不是应该先单独装一次系统？谢谢！ vb中用户登陆界面，怎样写代码程序，有没有源代码提供一下，要解释一下阿 Administrators这个用户登陆界面，我怎样才能恢复以前那样直接进入。没有那个界面呢？