Надо вывести данные в EXCEL. которые формируются хранимой процедурой в MS SQL. Хранимая процедура с параметром тип datetime.

Sub form_dat()
Dim mdat1
Dim cmd

mdat1 = CStr(ActiveSheet.Cells(2, 1).Value)
cmd = "exec form_dat " + mdat1


ThisWorkbook.Application.Sheets(2).Select
ThisWorkbook.Application.Sheets(2).Rows.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=abon" _
, Destination:=Range("A1"))
.CommandText = cmd
.Name = "Запрос из teplo"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub


код выдает синтаксическую ошибку. 1004. Т.е. как я поняла ошибка уже самого SQL, как раз из-за некооректной даты.

Спасибо, помогло!!!!