刷新OLEDB连接时出错-“对象工作簿连接的方法刷新失败”

Question

我创建的工作簿出现问题，该工作簿嵌入了VBA代码以刷新OLEDB与SQL Server的连接。这一切在使用Excel 2013的计算机上都可以正常运行，但是我有一个使用Excel 2010的用户，并且在他们的计算机上不起作用。

错误消息是：

"Run time error: '-2147417848 (80010108)': Method 'Refresh' of object 'WorkbookConnection' failed"

代码是：

With ActiveWorkbook.Connections("worksheet").OLEDBConnection
.Connection = Array( _
        "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=User;Password=Password;Initial Catalog=InitialTable;Data Source=ServerName;" _
        , _
        "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=A1234;Use Encryption for Data=False;Tag with " _
        , "column collation when possible=False")
.SavePassword = True
.CommandText = "select * from query"

ActiveWorkbook.Connections("worksheet").Refresh
End With

任何帮助或建议表示赞赏。

谢谢。