Ошибки при запросе в mssql , помогите пожалуйста!!!

[Sotnikovsa]

Здравствуйте, если можете, то помогите с одним вопросом.
Проблема такая вызываю хранимую процедуру, из mssql? соединение и все тому подобное проходит хорошо, но когда дело доходит до передачи даты, как параметра процедуры, то выскакивает ошибка типа я не дату передаю
'incorrect syntax near .2006'

код такой

Private Sub btn_load_Click()
Dim sQuery As String
Dim Rs As ADODB.Recordset
Dim Base As ADODB.Connection
Dim i As Integer
Dim datenach As Date

Const sServer = "ASERVER" 'Èìÿ ñåðâåðà
Const sBase = "{test_VBA}" 'Èìÿ áàçû
Const sUser = "{Sotnik}" '
Const sPwd = "{123}"

'Óñòàíàâëèâàåì ñîåäèíåíèå
Set Base = New ADODB.Connection
sQuery = "driver={SQL Server};server=" & sServer & ";database= " & sBase & ";uid=" & sUser & ";pwd=" & sPwd & ";"

Base.Open (sQuery)

name_office = cmb_office.Text
datenach = Format(DTPicknach.Value, "mm.dd.yy ") ' так не получается
datekon = DTPickkon.Value ' так тоже пробовал
response = MsgBox(datenach, vbDefaultButton2, name_office)
'Âûïîëíÿåì çàïðîñ ê áàçå
'Set Rs = Base.Execute("repCoalConsumption(" & name_office & " " & datenach & ") ")
Set Rs = Base.Execute(" select id from office where name='" & name_office & "'")
ID = Rs.Fields(0).Value
response = MsgBox(CStr(ID), vbDefaultButton2, name_office)
Set Rs = Base.Execute(" repCoalConsumption " & ID & "," & datenach & "," & datekon & "")


End Sub

остальные запросы проходят хорошо, я только начал пробовать что-то делать в VBA так что не судите строго.

За ранее благодарен за ответ!

[alibek]

Format$(datenach, "yyyymmdd")
Format$(datenach, "yyyy-mm-dd")
Format$(datenach, "mm\/dd\/yyyy")

[Sotnikovsa]

не получается, то что происходит в результате, а это нечто слитное без каких либо разделителей, совсем не устраивает mssql

[Sotnikovsa]

alibek большое спасибо, действительно помогло

Format$(datenach, "yyyy-mm-dd")