VBA连接本地Access数据库报自动化错误,回答正确追加至满分

Question

通过在VBA中访问本地Access数据库时报错,代码大概如下:

Dim adoCurCon As New ADODB.Connection
Set adoCurCon = CurrentProject.Connection
Dim AdoCurResTM As ADODB.Recordset
'strSql为一条SQL文字符串
Set AdoCurResTM = adoCurCon.Execute(strSql)
...

报错的地方在"Set AdoCurResTM = adoCurCon.Execute(strSql)"这句中,
报错的内容是"自动化(AutoMation)错误".

找了一天了,拜托帮帮忙,回答正确追加至满分,谢谢了!!
2008年04月01日 17:30
使用1楼朋友的方法问题没有解决,为什么去掉Set adoCurCon = CurrentProject.Connection这句话,去掉这句话之后,连接是处于关闭状态,根本没法执行操作呀,能不能解释下.

2008年04月01日 17:33
此查询操作嵌套在另一个集合遍历中,且和其他数据库操作共用一个ADODB.Connection,但是,我测试过,即便分开也报错;
还有就是,Set AdoCurResTM = adoCurCon.Execute(strSql)是我后来该的,原来是用的结果集open方法,但是报同样的错误.

Answer 1

Dim adoCurCon As New ADODB.Connection
Set adoCurCon = CurrentProject.Connection '去掉这句

Dim AdoCurResTM As New.ADODB.Recordset
Set AdoCurResTM = adoCurCon.Execute(strSql) '去掉这句
AdoCurResTM.Open strSql,adoCurCon,2,2