大家好，我在使用vb中的ado来连接access数据库，在写库的时候遇到问题，写不进去，下面是我的代码

Question

这个是代码。
我使用的是activex控件，在生成ocx之后打包，从网页中进行使用。Private Sub add_cmd_Click()
 Dim cn As ADODB.Connection
 Dim rs As ADODB.Recordset
 
 Set cn = New ADODB.Connection
 cn.Open "PROVIDER=MICROSOFT.Jet.OLEDB.4.0;Data Source=D:\Version\VB_code\UDP-2\DataBase\Switch_Data.mdb;"
 
 Set rs = New ADODB.Recordset
  If rs.EOF Then
   rs.AddNew
   rs("编号") = Trim(Text3.Text)  'text3中是手动输入的编号
   rs("数据") = Trim(Text1.Text)  'text1中是显示从下位机接收到的数据
   
   rs.Update
   MsgBox "记录添加成功！", vbOKOnly + vbInformation, "提示"
   Text1.Text = ""
  End If
 rs.Close
 cn.Close
 Set rs = Nothing
 Set cn = Nothing
End Sub在网页中调用时，点击了add_cmd之后，报错“运行时错误3704，对象关闭时，不允许操作”
不知道为什么？请高手指点

Answer 1

少了rs.opn....
建议这样:    Dim cn As ADODB.Connection  
    dim sql as string
    dim n as long     Set cn = New ADODB.Connection 
    cn.Open "PROVIDER=MICROSOFT.Jet.OLEDB.4.0;Data Source=D:\Version\VB_code\UDP-2\DataBase\Switch_Data.mdb;"     sql="insert into tb("编号","数据") values ('"& Trim(Text3.Text) &"','"& Trim(Text1.Text) &"')"
    cn.execute sql,n   
    MsgBox n & " 条记录添加成功！", vbOKOnly + vbInformation, "提示" 
    Text1.Text = ""  
    cn.Close 
    Set cn = Nothing