“尝试重新连接时运行时错误”-2147467259（80004005）未指定错误“

我正在构build一个Excel电子表格，以使用自定义的Excel加载项从服务器获取一些数据（表格格式）。 之后，我需要修改该表，我认为最好的办法是使用ADODB连接到相同的Excel电子表格和SQL查询。

当我尝试使用与该Excel加载项连接之前使用的Microsoft ACE OLEDB 12.0驱动程序build立ADODB连接时，我总是得到相同的错误：

运行时错误“-2147467259（80004005）
未指定的错误

这是我用来build立ADODB连接的代码：

Dim Conn As New ADODB.Connection Dim mrs As New ADODB.Recordset Dim sconnect As String Set Conn = New ADODB.Connection DBPath = ThisWorkbook.FullName sconnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _ & DBPath & ";" & "Extended Properties=""Excel 12.0 Xml; HDR=YES"";" Conn.Open sconnect Conn.Close 

如果我交换连接顺序，首先连接到我的Excel使用ADODB，然后连接到使用外接的外部服务器，我不会得到这个错误。

问题是，有时我已经使用不同的电子表格build立了Add-in连接，当我用ADODB连接打开这个电子表格时，错误被触发，因为如果我不重新启动Excel会话，Excel将保留该插件连接。

我已经尝试循环通过Excel连接，但它没有拿起插件连接：

  For i = 1 To ActiveWorkbook.Connections.Count Next 

有什么方法可以知道/debugging为什么我得到这个错误。