打开ADODB连接时出现"未指定的错误"

Question

我现在面临"未指定的错误"中只有一台PC我的用户.

运行时错误'-2147467259(80004005)':
未指定错误

我正在运行以下VBA代码以打开与位于网络共享驱动器中的Access数据库的连接.但是代码在尝试运行.Open语句时会抛出错误.

我认为这是一个驱动程序问题,并在用户的PC中安装了Access 2007数据库引擎,并用" Microsoft.ACE.OLEDB.12.0" 替换了Provider,但它不起作用.

码:

 Dim cn As ADODB.Connection
 Dim rs As ADODB.Recordset
 Dim retVal As Boolean
 Dim strSQL As String
 retVal = False

    On Error GoTo CatchError
     Set cn = New ADODB.Connection

     With cn
     .Provider = "Microsoft.Jet.OLEDB.4.0"
     .Properties("Jet OLEDB:Database Password") = Initialize.GetDBPwd 'returns pass
     .Open Initialize.GetDbConnectionString 'returns the network DB path
    End With

Answer 1

仍未找到此问题的任何解决方案，但该问题似乎仅限于一名用户。

我在具有原始宏的同一文件中编写了一些测试宏，这些宏打开了与本地数据库文件和远程数据库文件的数据库连接。测试成功，但由于某种原因，一个特定的宏仍然在该特定用户计算机中抛出“未指定错误”。

我们得出的结论是，这很可能是由于办公室被损坏所致。我们将修复办公室，希望这能解决问题。会让您知道这是否有效。

谢谢。