Ошибка преобразования типов - VB

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

Доброго времени суток!
Есть проект долгое время крутился на ХР и 2000 винде. Но время течет сервак поменял на 2008R2. и посыпались ошибки (на прикрепленном скриншоте). Часть ошибок устраняется дополнительным преобразованием например:
Был код:

Dim dat As Variant    

     dat = "'" & (Format(Date, "yyyy-mm-dd hh:mm:ss")) & "'"
    
    rst.Open "SELECT count(dbo.val_op_cont.op_id) as N " & _
             "FROM dbo.val_op_cont " & _
             "WHERE dbo.val_op_cont.op_sysdate<" & dat & " ", _
    Cn, adOpenStatic, adLockReadOnly

Работал, себе, работал. Теперь он работает только в таком виде:

dat = "'" & (Format(Date, "yyyy-mm-dd hh:mm:ss")) & "'"
    
    rst.Open "SELECT count(dbo.val_op_cont.op_id) as N " & _
             "FROM dbo.val_op_cont " & _
             "WHERE dbo.val_op_cont.op_sysdate<" & Cdate(dat) & " ", _
    Cn, adOpenStatic, adLockReadOnly

Правда такое преобразование тоже не всегда проходит ровно и все равно идет ошибка.
Но тотальность этой ошибки на водит на мысль, что может дело в используемых библиотеках или в типе переменной Variant.
Подскажите где искать? что поменялось.

Решение задачи: «Ошибка преобразования типов»

textual
                            Листинг программы 
                        
                            Dim dat As String