用Adodc向access表中插入数据时提示“对象关闭时，操作不被允许”，但数据却已经插入数据库了，这是为什么呀？

Question

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "office.mdb;Persist Security Info=False"
Dim userstr As String
userstr = "insert into table(ziduan1,ziduan2) values('shujv1','shujv2')"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = userstr
Adodc1.Refresh

Answer 1

奇怪的问题 加个忽略错误语句,不过那样很不好,建议你还是用ADO来操作数据库吧......
Adodc1.RecordSource = userstr
On Error Resume Next 
Adodc1.Refresh

Answer 2

dim conn as new adodb.connection
with conn
    if .state=adstateopen then .close
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\office.mdb;Persist Security Info=False"
    .open
end withconn.execute "insert into table(ziduan1,ziduan2) values('shujv1','shujv2')"

Answer 3

同意 Leftie(左手,为人民币服务) 
操作数据库要先连接,再操作.

Answer 4

VB6的ADODC控件是有问题的,可以如下操作
在工程/引用中添加microsoft axtivex data object 2.0 library
然后
查询:
dim cn as adodb.connection
dim rs as adodb.recordset
set cn=createobject(adodb.connection)
set rs=createobject(adodb.recordset)
cn.connectstring="你的连接字符"
cn.open
rs.open "你的数据库查询语言",cn,3,1
rs.close 
更新添加或删除dim cn as adodb.connection
cn.connectstring="你的连接字符"
cn.open
cn.execute "你的更新语句"

Answer 5

主要是Adodc1.Refresh这句话引起的。好像一般只能用来打开记录集，用来执行语句会出错误。
建议还是用adodb.connection来执行。