新手vb 6.0+sql 2012做登录界面 实时错误'3704:对象关闭时,不允许操作'？，应该怎么调试

Question

```Private Sub Form_Load()

Dim conn As New ADODB.connection

Dim connectionstring As String

connectionstring = "provider=sqloledb.1;user id=sa;password=123456;data source=(local);marketing systemtest"

conn.Open connectionstring

End Sub

Private Sub Command1_Click()

Dim sql As String

Dim conn As New ADODB.connection

Dim rs_login As New ADODB.Recordset

If Trim(Text1.Text) = "" Then

MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "错误"

Text1.SetFocus

Else

   sql = "select * from test where test_info ='" & Text1.Text & "'"
   If rs_login.EOF = True Then
          MsgBox "用户不存在，请重新输入！", vbOKOnly + vbExclamation, "错误"
          Text1 = ""
          Text1.SetFocus
   Else
          If Trim(rs_login.fields(1)) = Trim(Text2) Then
          rs_login.Close
          Unload Me
          Form2.Show
          Else
            MsgBox "密码错误！", vbOKOnly + vbExclamation, "错误"
            Text2.SetFocus
          End If
   End If

End If

End Sub

Answer 1

conn.open
rs_login.open sql, conn
这些都没有调用
因为你form_load和command里面的conn re_login都是局部变量，互相没有关系