关于用VB做的登录界面的问题,VB高手请进

这是我在做学生管理系统时,代码出现了问题,请高手帮我看看,帮我改改,谢谢
Private Sub cmdOK_Click()
Dim sql As String
sql = "select userpassword from use where username='" & txtUserName & "'"

If txtUserName.Text = "" Then
MsgBox "请填写用户名！", vbOKOnly + vbInformation, "注意"
txtUserName.SetFocus
Exit Sub
ElseIf txtPassword.Text = "" Then
MsgBox "请填写密码！", vbOKOnly + vbInformation, "注意"
txtPassword.SetFocus
Exit Sub
End If
Adodc1.RecordSource = sql
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
If Adodc1.Recordset!UserName <> txtUserName Then
MsgBox "用户名错误！"
txtUserName.SetFocus
txtUserName = ""
End If
Else
If Adodc1.Recordset!userpassword <> txtPassword Then
MsgBox "密码错误！"
txtPass

关于用VB做的登录界面的问题,VB高手请进 有关VB设计登录界面的问题 用VB做“学生信息管理系统”的登录界面时问题～～～ vb登录界面问题 做XP登录界面时的问题 用vb做的access数据库怎么做登录界面啊? 一个关于电脑登录界面的问题 关于XP登录界面的问题 关于修改XP登录界面的问题 关于电脑开机登录界面的问题.