The conversion of a varchar data type to a datetime data type resulted in an out-of-rane v - VB

Формулировка задачи:

Привет!
Помогите, пожалуйста, новичку.
Куски кода, касающиеся проблемы:

'Блок, рассчитывающий отчетный период
'Текущая дата
CurDate=Date
dd=mid(CurDate,1,2)
mm=mid(CurDate,4,2)
yy=mid(CurDate,7)

'Конец отчетного периода
LDate=Date()-1
ldd=mid(LDate,1,2)
lmm=mid(LDate,4,2)
lyy=mid(LDate,7)

'Формирование даты
LDate = ldd & "." & lmm & "." & lyy
LSQLDATE = lyy & "-" & lmm & "-" & ldd & " 12:00:00.000"

'Начало отчетного периода
FDate=Date()-7
fdd=mid(FDate,1,2)
fmm=mid(FDate,4,2)
fyy=mid(FDate,7)
	
'Формирование даты
FDate = fdd & "." & fmm & "." & fyy
FSQLDATE = fyy & "-" & fmm & "-" & fdd & " 12:00:00.000"
FLDate=dd & mm & yy
'Конец блока
Set rs = objConnection.Execute("select count (*) As N from dbo.events where EVENTID in ('624', '4720') and EVENT_DATE>='" & FSQLDATE & "' and EVENT_DATE<='" & LSQLDATE & "';")
	N = CStr(rs("N"))

Скриншот с ошибкой во вложении.

Решение задачи: «The conversion of a varchar data type to a datetime data type resulted in an out-of-rane v»

textual
                            Листинг программы 
                        

                            option explicit

dim CurDate, strCurYear, UpBound, t, z

CurDate = Date()
UpBound = 1000000


REM implicit "conversion"
t = timer()
for z = 1 to UpBound
    strCurYear = right( CurDate, 4 )
next
wscript.echo "implicit: "& timer() -t


REM explicit "conversion"
t = timer()
for z = 1 to UpBound
    strCurYear = right( CStr(CurDate), 4 )
next
wscript.echo "explicit: "& timer() -t


REM implicit: 2,296875
REM explicit: 2,515625

                        