vba mysql 自动化错误_在Excel中运行VBA脚本时出现自动化错误

在Excel 2007中运行VBA代码时出现自动化错误。我尝试连接到远程SQL Server数据库并将数据从Excel加载到SQL Server。在Excel中运行VBA脚本时出现自动化错误

我得到的错误是，

“运行时错误 '-2147217843(80040E4D)'：自动化错误”。

我检出了MSDN网站，它提示这可能是由于与sqloledb提供程序相关的错误，并且缓解此问题的一种方法是使用ODBC。那么我改变了连接字符串以反映ODBC提供者和相关参数，我仍然得到相同的错误。

下面是ODBC的代码提供者：

Dim cnt As ADODB.Connection

Dim rst As ADODB.Recordset

Dim stSQL As String

Dim wbBook As Workbook

Dim wsSheet As Worksheet

Dim rnStart As Range

Public Sub loadData()

'This was set up using Microsoft ActiveX Data Components version 6.0.

'Create ADODB connection object, open connection and construct the connection string object.

Set cnt = New ADODB.Connection

cnt.ConnectionString = _

"Driver={SQL Server}; Server=onlineSQLServer2010.foo.com; Database=fooDB Uid=logonalready;Pwd