http://support.microsoft.com/default.aspx?scid=kb;en-us;Q190194
has a solution
I followed it diligently and get an error on the line
>>Calendar.Value = IIf(IsNull(OrderDate), Date, OrderDate.Value)<<
my line is
calendar.Value = IIf(IsNull(effectdate), Date, effectdate.Value)
Where...