Comparing two dates in vbscript

Hello,

I have put together a dts package to check if a file exist and to check a date range in a database. I know for a fact that the date specified in the database table is correct. But the steps already fails. What am I doing wrong.

here is my code:

'************************************************************************
'  Visual Basic ActiveX Script
'************************************************************************
dt = Left(TimeNow(Now), 4) & Mid(TimeNow(Now), 6, 2) & Mid(TimeNow(Now), 9, 2)

Function TimeNow(dDateTime)
      TimeNow =      Year(Now) & "-" &_
                        Right("00" & Month(Now), 2) & "-" &_
                        Right("00" & Day(Now), 2) & "-" &_
                        Right("00" & Hour(Now), 2) & "-" &_
                        Right("00" & Minute(Now), 2) & "-" &_
                        Right("00" & Second(Now), 2)
End Function

Function Main()

dim cnDB
dim rsRecordSet

set cnDB = CreateObject("ADODB.Connection")
cnDB.Open = "Provider=SQLOLEDB.1;Data Source=xxxx;Initial Catalog=admin;USER ID=xxxxxd;password=xxxx;"
set rsRecordSet0=CreateObject("ADODB.Recordset")

With rsRecordSet0
      .ActiveConnection = cnDB
      .CursorType = adOpenKeyset
      .Open "select convert (char(10), max(row_created), 112) from ccms.ccmsdba.event"
      End With

dim strvalue0
strvalue0 = rsRecordSet0.Fields(0).value
If strvalue0 <= dt -1 then

      Main = DTSStepScriptResult_DontExecuteTask
Else
      Main = DTSTaskExecResult_Failure
      
End If

set rsRecordSet = nothing
cnDB.close
set cnDB = nothing

End FunctionStart Free Trial