Pass a date Range from VB to a parameter

Question

Hello,
I'm thinking this is an easy question, but ...
In a Visual Studio 2008 VB program, I'm allowing the user to pick a starting and ending date from DateTimePickers. (works fiine).
In a CR 2008 report, I have a paramter defined as "pDateRange",  Type = date, Allow Range Values = Yes.
In the Record Selection, I use a formula of {tblData.INSTALLDT} in {?Date_Range}.
When I run the report, I can enter the date ranges in via the Enter Values prompt screen, and it works file,
All I need to know is - how do I pass the dates the user selected in the VB program to the pDateRange parameter?
Thanks very much,
Carl

Answer 1

Thanks Ludek for the reply.
Unfortunately, I canu2019t seem to puzzle this out.  None of the examples seem to work.  This is an example, along with their comments.
I get the error "The parameter field current values cannot contain range values because the ValueRangeKind property is set to discrete." on the last line.
I could REALLY use some help getting past this issue.
       Dim myReportDocument As New CRS_Tab_Prod_Org_Cnt_Params2
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As ParameterValues
        Dim crParameterRangeValue As ParameterRangeValue
        crParameterFieldDefinitions = myReportDocument.DataDefinition.ParameterFields
        'Access the individual subreport parameter field "Date_Range"
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("Date_Range")
        'Cast the variable to hold the values to pass to the Report before execution
        crParameterValues = crParameterFieldDefinition.CurrentValues
        'Cast the variable to hold the range value for the parameter
        crParameterRangeValue = New ParameterRangeValue()
        'Set the Date range and include the upper and lower bounds. Use the Cdate function as insurance
        'to ensure that the value passed is cast to the appropriate data type
        With crParameterRangeValue
            .EndValue = CDate("1/1/1997")
            .LowerBoundType = RangeBoundType.BoundInclusive
            .StartValue = CDate("12/20/1997")
            .UpperBoundType = RangeBoundType.BoundInclusive
        End With
        'Apply the Date range to the values to be passed to the Report
        crParameterValues.Add(crParameterRangeValue)
        'Pass the parameter values back to the report
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
Thanks for your help,
Carl