为什么提示对象关闭时,不允许操作.(帮忙看下代码)

Dim rs_xpa As New ADODB.Recordset
Dim ab_ab As New ADODB.Recordset
Dim ac_ac As New ADODB.Recordset
Dim sqq As String
Dim aql As String
Dim bql As String
Private Sub command1_Click()
sqq = "select * from A表 where id=" & CLng(Text14.Text)
aql = "select * from B表 where sf='" & Text1.Text & "'"
bql = "select * from C表 where sf='" & Text1.Text & "'"
On Error GoTo xi
ab_ab.Open aql, donn, adOpenKeyset, adLockPessimistic
If ab_ab.EOF = False Then
Do While Not ab_ab.EOF
ab_ab.Fields(1) = Text1.Text
ab_ab.Fields(2) = Text2.Text
ab_ab.Fields(3) = Text3.Text
ab_ab.Fields(4) = Text5.Text
ab_ab.Fields(7) = Text6.Text
ab_ab.Fields(8) = Text7.Text
ab_ab.Fields(9) = Text8.Text
ab_ab.Fields(10) = Text9.Text
ab_ab.Update
ab_ab.Close
Loop
End If
ac_ac.Open bql, donn, adOpenKeyset, adLockPessimistic
If ac_a

为什么提示对象关闭时,不允许操作.(帮忙看下代码) 对象关闭时，不允许操作 为什么添加数据库信息出错 “对象关闭时，不允许操作。“？ 对象关闭时，不允许操作。(asp) ADODB.Recordset (0x800A0E78)对象关闭时，不允许操作 急！急~~~对象关闭时，不允许操作~~~~有代码~帮忙！ ADODB.Field (0x80020009)对象关闭时，不允许操作。 asp查询分页出错：对象关闭时，不允许操作 ADODB.Connection (0x800A0E78)对象关闭时，不允许操作。 vb “对象关闭 不允许操作”急急急急！！！！