VBARuntimeError9

Question

При попытке загрузить данные из Excel в Microsoft SQL с помощью VBA, во время выполнения выдается ошибка '9', было бы хорошо, если кто-то может помочь, пожалуйста

    Sub Update()
        Dim sql As String

        Dim Volume As Range
        Set Volume = Range("D7:D37")

        Dim Date1 As Range
        Set Date1 = Range("B7:B37")

        Dim DayOfweek As Range
        Set DayOfweek = Range("C7:C37")
        sql = "SET NOCOUNT ON"
        sql = sql & Range("D7:D37").Offset(0, 4).Text
        sql = sql & " SET NOCOUNT OFF"
        sql = sql & " SELECT * FROM WorkDBDialler.dbo.t_DJ0529_interactive_collections_SMS_Volumes_VBL_Weekday_test      

ActiveWorkbook.Connections("1").OLEDBConnection.sql = sql

        Range("Table1").ListObject.QueryTable.sql = sql
        Range("Table1").ListObject.QueryTable.Refresh
        MsgBox "Updated"
    End Sub