VB往EXCEL里填加数据，如果连续加会报错。

Question

Dim conn As ADODB.Connection
Private Sub Command1_Click()
conn.Execute "insert into sbjbztb(资产标志,资产编号,资产名称,品名,品牌,生产厂家,型号,配置,数量,出厂日期,购入日期,使用日期,购入凭证号,购入金额,设备状态,备注,购进单位,出入库,领用人,使用人,管理员) values ('" & Trim(Combo1.Text) & "','" & Trim(Text5.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text17.Text) & "','" & Trim(Text8.Text) & "','" & Trim(Text7.Text) & "','" & Trim(Text9.Text) & "','" & Trim(Text16.Text) & "','" & Trim(Text10.Text) & "','" & Trim(Combo3.Text) & "','" & (Combo4.Text) & "','" & (Combo6.Text) & "','" & Trim(Text6.Text) & "','" & Trim(Text11.Text) & "','" & Trim(Text14.Text) & "','" & Trim(Text15.Text) & "','" & Trim(Combo7.Text) & "','" & Trim(Text3.Text) & " ','" & Trim(Text4.Text) & "','" & Trim(Text12.Text) & "','" & Trim(Text13.Text) & "')"conn.close
MsgBox "保存成功!"
Else: MsgBox "资产名称和资产编号不能为空！"
End IfCombo1.Text = ""
Text5.Text = ""
Text2.Text = ""
Text8.Text = ""
Text7.Text = ""
Text9.Text = ""
Text16.Text = ""
Text10.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo6.Text = ""
Text11.Text = ""
Text14.Text = ""
Text15.Text = ""
Combo7.Text = ""
Text3.Text = ""
Text4.Text = ""
Text12.Text = ""
Text13.Text = ""
Combo2.Text = ""
Text6.Text = ""
Text18.Text = Text18.Text + 1End Sub当往EXCEL库里添加一条数据后，再连续加一条，会出现实时错误“3704”：对象关闭时，不允许操作。如何修改，请大家指点。

Answer 1

conn.close去掉不过LZ这是在往excel里写数据吗?

Answer 2

Private Sub Command1_Click() 
    Dim conn As ADODB.Connection 
    set conn=new adodb.connection
    conn.open "连接EXCEL的字符串"
    conn.Execute "insert into sbjbztb(资产标志,资产编号,资产名称,品名,品牌,生产厂家,型号,配置,数量,出厂日期,购入日期,使用日期,购入凭证号,购入金额,设备状态,备注,购进单位,出入库,领用人,使用人,管理员) values ('" & Trim(Combo1.Text) & "','" & Trim(Text5.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text17.Text) & "','" & Trim(Text8.Text) & "','" & Trim(Text7.Text) & "','" & Trim(Text9.Text) & "','" & Trim(Text16.Text) & "','" & Trim(Text10.Text) & "','" & Trim(Combo3.Text) & "','" & (Combo4.Text) & "','" & (Combo6.Text) & "','" & Trim(Text6.Text) & "','" & Trim(Text11.Text) & "','" & Trim(Text14.Text) & "','" & Trim(Text15.Text) & "','" & Trim(Combo7.Text) & "','" & Trim(Text3.Text) & " ','" & Trim(Text4.Text) & "','" & Trim(Text12.Text) & "','" & Trim(Text13.Text) & "')"     conn.close 
    MsgBox "保存成功!" 
'.....
end sub

Answer 3

SQL ?友情Up................

Answer 4

conn.close 
都close掉了，，怎么继续啊- -