使用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