crystal parameter

[EyeTalion]

I'm running a crystal report through my app. I have a date variable set in the application "TranPeriodEnd" . I need to place this date in the top of the report. Heres the code I'm using but Crystal gives me a dialog box asking for the parameter... In the report I created DateParam, using: field explorer --> parameter fields...am I doing something wrong here?

Dim crReport As New header()
        Dim crParameterFieldDefinitons As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues()
        Dim crParameterDiscreteValue As New ParameterDiscreteValue()
        crParameterDiscreteValue.Value = CDate(tranPeriodEnd)
        crParameterFieldDefinitons = crReport.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitons.Item("Dateparam")
        crParameterValues = crParameterFieldDefinition.CurrentValues
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)