我为什么总碰到这些不会的问题？？急死我了。大家行帮我看一下吧！！不好意思。我就10分了。

Question

Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
  Private Sub cmdDelete_Click()
 conn.ConnectionString = "driver={sql server};server=liuwx;database=临时数据库;persist security info=false;user id=libdev;password=2027552"
      conn.Open
      rs.Open "Delete from 流通历史表 where 图书条形码='" & txttxm.Text & "'", conn
      rs.Close
      rs.Open "delete from 书目副表 where 图书条形码='" & txttxm & "' ", conn
      End If
      End If
      rs.Close
      conn.Close错误为：实时错误'3704'
对象关闭时操作不允许

Answer 1

rs.Open "Delete from 流通历史表 where 图书条形码='" & txttxm.Text & "'", conn
      rs.Close'##################你在这里关，rs就空了
      rs.Open "delete from 书目副表 where 图书条形码='" & txttxm & "' ", conn

Answer 2

Dim rs As New ADODB.Recordset
 Dim rs2 As New ADODB.Recordset
’分开写

Answer 3

rs.Close
conn.Close这里先别急，数据全部操作完了再说

Answer 4

if rs.state=1 then rs.Close

Answer 5

rs.Close
conn.Close这里先别急，数据全部操作完了再说