Извлечение данных из SQL Server с использованием VBA-Excel с фильтром дат - не работает

Question

Я новичок в Excel VBA. Я использовал VBA для извлечения данных из SQL-Server и смог извлечь данные с помощью текстовых фильтров, но когда я начал фильтровать по дате, он больше не работал. Я думаю, что моей ошибкой было форматирование даты. Я попытался использовать все образцы на этом сайте, но я начинаю безнадежно. Было бы здорово, если бы вы, ребята, могли бы помочь мне с этим препятствием. Спасибо миллион.

Вот код: ( Обратите внимание, что я пропускаю соединение и закрываю коды, чтобы сосредоточиться только на проблемном исходном коде ).

Чего я хочу достичь в этом коде, так это извлечь все записи ( с использованием SQL-запроса в среде VBA ) на основе критерия даты, который больше или равен 1 января 2018 года.

        query = "SELECT (Worktype), count(*)" & _
        "FROM dbo.InteractionSummary WHERE [Worktype] IN ('" & MAC & "')" & _
        "GROUP BY [Worktype]"

С этим запросом у меня не было проблем. Он сформировал цифры отлично. Эти коды выполняют подсчет всех записей из столбца «Тип работы» со значением «MAC».

Моя проблема возникает, когда я добавляю приведенные ниже критерии даты.

        Dim dTheDate As Date
        dTheDate = #1/1/2018#


        query = "SELECT (Worktype), count(*)" & _
        "FROM dbo.InteractionSummary WHERE [Worktype] IN ('" & IMAC & "')" & _
        "GROUP BY [Worktype] AND [StartDateTimeUTC] > " & dTheDate & " "

StartDateTimeUTC - это столбец DateTime2 (datetime2 (3), notnull). Я пытаюсь извлечь только на основе dTheDate. Я перепробовал каждый формат, но он не пропускает код.

Спасибо, Скайуокер