Ошибка выполнения '1004' при попытке выполнить запрос SQL к серверу с использованием VBA

Question

Я получаю сообщение об ошибке:

Ошибка времени выполнения '1004': ошибка приложения или объекта '

при попытке запустить SQL Запрос к серверу с использованием VBA.

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

Если кто-нибудь сможет мне помочь, я буду благодарен. Спасибо.