对象关闭时如何修复此操作是不允许的

Question

列表项

如何修复此错误“对象关闭时不允许操作”？

这是为了在vb6的listview中添加和显示存储的数据

 Dim connect As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim a As Integer
  Dim b As Integer
  Dim x As Long
  Dim c As String
 Option Explicit

  Private Sub Command1_Click()
    rs.AddNew    'this line shows the error
    ado.Recordset.Fields("EMPID").Value = emp.Text
    ado.Recordset.Fields("DEPARTMENT") = Text2.Text
    ado.Recordset.Fields("EMPNAME") = Text1.Text
    ado.Recordset.Fields("TIMEIN") = DTPicker3.Value
    ado.Recordset.Fields("TIMEOUT") = DTPicker4.Value
    ado.Recordset.Fields("LOGDATE") = DTPicker2.Value
    rs.Update

  End Sub

     Private Sub Command2_Click()
           a = DateDiff("d", DTPicker1, DTPicker2)
     b = DateDiff("h", DTPicker3, DTPicker4)

     x = a * b
     c = x * 52.5
     Text7.Text = "Hours:" & x & " Days:" & a & "$ " & c
     End Sub

     Private Sub Form_Load()
      connect.Open _
    "Provider=Microsoft.ACE.OLEDB.12.0;Data 
    Source=C:\Users\MIS02\Desktop\FILE.accdb;Persist Security Info=False"


    With ListView1.ColumnHeaders
    .Add , , "EMPID", Width / 15, lvwColumnLeft
    .Add , , "DEPARTMENT", Width / 10, lvwColumnCenter
    .Add , , "EMPNAME", Width / 12, lvwColumnCenter
    .Add , , "TIMEIN", Width / 12, lvwColumnCenter
    .Add , , "TIMEOUT", Width / 12, lvwColumnCenter
    .Add , , "LOGDATE", Width / 10, lvwColumnCenter
    End With

      End Sub

Sub dbconnection()
connect.Open _
  "Provider=Microsoft.ACE.OLEDB.12.0;Data         
  Source=C:\Users\MIS02\Desktop\FILE.accdb;Persist Security Info=False"

      End Sub
     Sub loaddata()
      Dim list As ListItem
      ListView1.ListItems.Clear
      dbconnection
            rs.Open "Select *from Attendance", con, adOpenDynamic,                  
   adLockOptimistic

      Do Until rs.EOF
      Set list = ListView1.ListItems.Add(, , rs!Employee)
      list.SubItems(1) = rs!Department
      list.SubItems(2) = rs!Surename
      list.SubItems(3) = rs!FirstName
      list.SubItems(4) = rs!TimeIn
        list.Subitems(5)=rs!Timeout
      list.SubItems(6) = rs!DateRecord
      rs.MoveNext


Loop

============================================= ==========

我希望我可以在列表视图中存储和显示数据。

Answer 1

您将 connect 声明为一个连接并且似乎您倾向于使用它（因为您正在调用 dbconnection 方法）。但同时您传递 con 作为打开记录集的参数。可能这个变量不存在或者如果存在于全局级别 - 不正确 initialized/opened。

对象关闭时如何修复此操作是不允许的

How to fix this Operation is not allowed when object is closed

vb6