小编taw*_*fiq的帖子

我现在面临"未指定的错误"中只有一台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