The conversion of a char data type to a datetime data type result

Jeg får følgende fejlmeddelse:

The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.
/indkøbsregnskab/index.asp, line 222

Min kode ser sådan her ud:
Linje 222 er sidste linje!

If Request.Form("WhatWasChosen") = "MonthlyConsumptionChosen" Then
            Dim MonthName, intMonth, Year, StartDate, EndDate, intEndDay
            Dim CostFood, CostDrinks, CostCleaning, EndSum1, EndSum2, StartDay
            MonthName = Request.Form("Month")
            intMonth = ChangeMonthNameToInteger(MonthName)
            Year = Request.Form("Year")
            StartDay = 01
            StartDate = CDate(Year & "-" & intMonth & "-" & StartDay)
            StartDate = CDate(DatePart("yyyy", StartDate) & "-" & DatePart("m", StartDate) & "-" & DatePart("d", StartDate))
            intEndDay = CalculateEndDate(MonthName, Year)
            EndDate = CDate(Year & "-" & intMonth & "-" & intEndDay)
            EndDate = CDate(DatePart("yyyy", EndDate) & "-" & DatePart("m", EndDate) & "-" & DatePart("d", EndDate))
            Set objConn = Server.Createobject("ADODB.Connection")
            strConnString = "Provider=SQLOLEDB;" & _
                            "Persist Security Info=FALSE;" & _
                            "User ID=sa;" & _
                            "Password=pb16950;" & _
                            "Initial Catalog=Indkøbsregnskab;" & _
                            "Initial File Name = C:\Programmer\Microsoft SQL Server\MSSQL\" & _
                            "DATA\Indkøbsregnskab_Data.mdf;"
            objConn.Open strConnString
            strSQL = "SELECT * FROM Consumption_T WHERE Date_DT > '" & StartDate & "'" & _
                    " AND Date_DT < '" & EndDate & "' ORDER BY Date_DT"
            Set objRS = Server.Createobject("ADODB.Recordset")
            objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, AdCmdText

Hvad er der galt?