use Win32::OLE::Variant;
$oParameterField->AddCurrentValue(Variant(VT_DATE, "01/31/03"));