Я получаю исключение, когда передаю пустое значение datetime в sqlserver через VBA

Question

Я пытаюсь экспортировать некоторые таблицы из EXCEL 2013 в свою базу данных SQL Server 2017 через VBA ADO.Все работает нормально, кроме случаев, когда ячейка datetime содержит пустое значение, а затем я получаю исключение.Я пытался заменить значения на NULL, 1900-01-01, '', ((0)), но всегда получаю SYSTEM ERROR &H80040E07

 NUM_COURIER = rg.Cells(i, 3)
 DATE_DEPART = rg.Cells(i, 4) 'DATETIME
 DATE_RECEPTION = rg.Cells(i, 5) 'DATETIME

 If DATE_DEPART = "" Then DATE_DEPART = "''" Else DATE_DEPART = "'" & DATE_DEPART & "'"
              If DATE_RECEPTION = "" Then DATE_RECEPTION = "''" Else DATE_RECEPTION = "'" & DATE_RECEPTION & "'"

              StrQuery = "INSERT INTO  COURIER (NUM_COURIER_BANQUE,DATE_DEPART_BANQUE,DATE_RECEPTION_BANQUE) VALUES('" & NUM_COURIER & "'," & DATE_DEPART & "," & DATE_RECEPTION & ")"

Set rs = query(conn, StrQuery)