尝试使用VBA运行SQL Server查询时出现运行时错误'1004'

Question

我遇到错误：

运行时错误'1004'：应用程序定义或对象定义的错误'

尝试使用VBA运行SQL Server查询时。

conn.Open "Provider=SQLOLEDB; Data Source=HQ-10064172L6;Initial Catalog=Naruto;Integrated Security=SSPI"
Call query_result(sql, rec, conn, wb)


Sub query_result(thisSql As String, rec1 As ADODB.Recordset, conn As ADODB.Connection, wb As Workbook, Optional cell_value As String = "A1")
Set rec1 = New ADODB.Recordset
rec1.Open thisSql, conn

With wb.ActiveSheet.QueryTables.Add(Connection:=rec1, Destination:=wb.ActiveSheet.Range(cell_value))
    .Name = "data"
    .FieldNames = True
    ' getting error on below line
    .Refresh BackgroundQuery:=True
End With

End Sub

如果有人可以帮助我，我将不胜感激。谢谢。