VB 自动化错误 automation 错误！

[添哥爱自己]

Sub testaaa()
Dim i As Long, j As Long, t As Long, sht As Worksheet
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String
Dim strSQL As String
Dim jo As Boolean
strCn = "Provider=sqloledb;Server=SQLSEVER;Database=AAADDD;Uid=sa;Pwd=123456;"
cn.Open strCn
strSQL ="update icstockbill set fbilleriD=11"
rs.Open strSQL, cn
小弟在做excel修改数据库的时候，如果在AAADDD这个数据库运行strSQL的话 就会出现
运行时错误‘-2147467259（80004005）’
自动化（automation）错误
但是在别的数据库BBBCC就不会，求大神指导。两个数据库是一样的 ，是我备份出来。

[添哥爱自己]

引用 1 楼 zhao4zhong1 的回复:

http://www.baidu.com/s?wd=error%2080004005&rsp=3&f=1&oq=ADOERR%2080004005&ie=utf-8&rsv_ers=xn0&rs_src=0

你好，能具体说一说怎么回事么

[赵4老师]

下载安装MDAC28试试。

[添哥爱自己]

引用 3 楼 zhao4zhong1 的回复:

下载安装MDAC28试试。

让我很奇怪的是为什么两个数据库一模一样的，一个行一个就不行，sql语句完全一样

[赵4老师]

引用 4 楼 TianGeAiZiJi 的回复:

[quote=引用 3 楼 zhao4zhong1 的回复:] 下载安装MDAC28试试。

让我很奇怪的是为什么两个数据库一模一样的，一个行一个就不行，sql语句完全一样[/quote] 总不至于一个数据库文件的属性是只读吧。或者一个数据库正被另一个程序打开？ 任务管理器里面找到僵死进程结束掉（如果有）

[赵4老师]

http://www.baidu.com/s?wd=error%2080004005&rsp=3&f=1&oq=ADOERR%2080004005&ie=utf-8&rsv_ers=xn0&rs_src=0