RecordSelectionFormula won't update parameter

[tdong]

I have a ReportDate parameter in CR9 then I pass a date to it so that I can compute some value but it doesn't display the value. pivotDate is a dropdown menu in VB6 so that the user can pick a date. I disable the promting since I need to pass the value to parameter using VB6

Parameter Fields
ReportDate

.ParameterFields.GetItemByName("ReportDate").ClearCurrentValueAndRange
.ParameterFields.GetItemByName("ReportDate").AddCurrentValue CDate(pivotDate)

Formula Fields -- doesn't display anything on this columm
settlementamount

if {Command.maturity_date} = {?ReportDate} and {Command.name} = "Comercial Paper" then
-{Command.proceeds}
else if {Command.maturity_date} = {?ReportDate} and {Command.name} = "Repo" and {Command.proceeds} <0 then
-{Command.proceeds}
else
{Command.proceeds}