VB登录窗体，代码纠错

登录窗体，利用adodc控件从access数据库的“用户管理”表检查用户名称和登录密码，两个文本名是txtUserName和txtPassword运行过程有问题，请大家纠错，谢谢！
Option Explicit
Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
If Trim(txtUserName.Text) = "" Then
MsgBox "用户名不能为空", vbExclamation + vbOKOnly, "提醒"
txtUserName.SetFocus
Exit Sub
End If

If Trim(txtPassword.Text) = "" Then
MsgBox "用户密码不能为空", vbOKOnly, "提醒"
txtPassword.SetFocus
Exit Sub
End If

If Not IsNumeric(txtPassword.Text) Then
MsgBox "密码必须为数字", vbExclamation + vbOKOnly, "提醒"
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword)
tx

VB文件打开的代码纠错 在VB 添加用户窗体 代码 求登陆窗体的vb代码 VB 多重窗体 请看简单代码 VB多窗体退出代码出错 VB的用户登录代码 VB 中设计登录框，当输入错误用户名和密码后还是弹出了主窗体，请问各位高手，这个代码怎么添写，我是菜鸟 VB，要使窗体最小化，需用什么代码 如果想让VB切换窗体,应该写什么代码? VB做的系统中，窗体的登陆代码？