Question

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 Sub
Else
If check.Fields("UserPwd").Value = TextPwd.Text Then
MsgBox "密码正确!", , "登录信息"
Else
MsgBox "密码错误!", , "登录信息"
Exit Sub
End If
End If

Unload Me
frmMain.Show
End Sub
运行时发现有错误，是这样描述的，对象关闭时，不允许操作。
光标在此语句位置 If check.EOF Then
请高手指教 急！！！谢谢

Answer 1

DBstr = "select * from UserInfo where UserID='" & UserID & "'"
check.Open DBstr, conn, 3,2

Answer 2

你没打开对象，lzh741206给你的答案是正确的
先赋值：
DBstr = "select * from UserInfo where UserID='" & UserID & "'"
接着：
check.open dbstr,conn,3,2