Sql server 使用Excel VBA运行SQL查询并获取错误

我是VBA新手。我想从vba代码运行简单的SQL查询。我找到了这个任务的简单代码，但我不断得到错误
“自动化错误未指定错误2147647259（80004005）”

---

我被卡住了，请帮助（用户名和密码被屏蔽）。 这是我的密码：

Sub Download_Standard_BOM()  
Dim cnn As New ADODB.Connection  
Dim rst As New ADODB.Recordset  
Dim ConnectionString As String  
Dim StrQuery As String  
    ConnectionString = "Provider=SQLOLEDB.1;Password=13139797MMn;Persist   Security Info=True;User ID=MPam;Data Source=172.20.84.15;Use Procedure   for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for   Data=False;Tag with column collation when possible=False;Initial   Catalog=ImportHapoalim"  
    cnn.Open ConnectionString    
    cnn.CommandTimeout = 900    
    StrQuery = "SELECT MAX(CAST(itra as float)) FROM [ImportHapoalim].[dbo].[Minchali] WHERE deltaid = 275"     
    rst.Open StrQuery, cnn    
    Sheets(1).Range("A2").CopyFromRecordset rst  

End Sub

---

你想要达到的目标。在哪一行出现此错误。您应该混淆您的IP和密码（并更改pwd，现在它已发布）“用户名和密码被屏蔽”这不是真实的用户名、密码和IP…我想从excel文件运行sql脚本，并将结果发送到电子表格。它没有说明错误是在哪一个上…您的机器上安装了oracle客户端吗？您想要实现什么。在哪一行出现此错误。您应该混淆您的IP和密码（并更改pwd，现在它已发布）“用户名和密码被屏蔽”这不是真实的用户名、密码和IP…我想从excel文件运行sql脚本，并将结果发送到电子表格。它没有说明错误在哪一个上……您的机器上安装了oracle客户端吗？