Как решить ошибку времени выполнения 3704 в vb6.0?

Question

точно так же, как yugal, я получаю ошибку 3704 - Операция не разрешена, когда объект закрыт. Пожалуйста, помогите мне решить эту проблему с моей системой .. это мой код:

Private Sub cmdLog_Click()
txtUser.SetFocus
frmChange.txtusern = txtUser
If txtUser <> "" And txtpass <> "" Then
    **Set rsenrol = cnenrol.Execute("Select * from tblUsers where username = '" & txtUser & "'and password='" & txtpass & "'")**[this is where the error occur]
    If csenrol.EOF = False Then
    MsgBox "Welcome " & txtUser & "!!", vbInformation, "Welcome User"
            txtUser = ""
            txtpass = ""
            Unload Me
            MDIfrm.Show
         Else
         MDIfrm.Visible = False
            MsgBox "Incorrect Username and/or Password. Please verify and Click Retry.", vbRetryCancel, "Log in Error"
            txtpass = ""
            txtUser.SetFocus
            Exit Sub
        End If
Else
    MsgBox "Sorry, I cannot identify you.", vbExclamation, "Intruder Alert"
    MDIfrm.Visible = False
    Exit Sub
End If
End Sub

Спасибо, Алекс.

Answer 1

Ошибка возникает из-за того, что вы пытаетесь открыть набор записей «SELECT» с помощью команды execute, это используется для запросов действий, таких как «INSERT, UPDATE» и т. Д. В этом случае вам нужно использовать команду .open сваш набор записей ADO.