VB做登陆界面的代码出现问题

Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub CmdOK_Click()
Dim check As New ADODB.Recordset
Dim DBstr As String
Dim UserID As String
Dim UserPwd As String
If Len(Trim(Me.TextUser.Text)) <= 0 Then
MsgBox "请输入用户名!", , "登录信息"
Exit Sub
End If
If Len(Trim(Me.TextUser.Text)) > 8 Then
MsgBox "您输入用户名过长!", , "登录信息"
Exit Sub
End If

If Len(Trim(Me.TextPwd.Text)) <= 0 Then
MsgBox "请输入密码!", , "登录信息"
Exit Sub
End If
If Len(Trim(Me.TextPwd.Text)) > 8 Then
MsgBox "您输入密码过长!", , "登录信息"
Exit Sub
End If
DBstr = "select * from UserInfo where UserID='" & UserID & "'"
If check.EOF Then
MsgBox "没有该用户!", , "登录信息"
check.Close
Exit

VB登陆界面问题 制作VB登陆界面的问题 求VB登陆界面代码~急啊~~~~~ vb登陆界面用Access做数据哭代码怎么写 VB制作登陆界面的密码核对问题 用vb,access做一个登陆界面。 VB做的系统中，窗体的登陆代码？ VB验证登陆的代码 VB与access 制作登陆界面问题 登陆界面的问题