I pass a range of date to my report using the following code.

   With DeConceptoNAS
     If .rsSQLlisteParticipant.State <> 0 Then .rsSQLlisteParticipant.Close
     .SQLlisteParticipant CDate(DTPickerDebut.Value), CDate(DTPickerFin.Value)
   End With
   RptConceptoNAS.Refresh
   If Not RptConceptoNAS.Visible Then RptConceptoNAS.Show

The data show is correctly.

But now I want to show the date range in my report title (ReportHeader).

How can this be done ?

Thanks in advance for your help

Christian Paquet
Analyst Programmer

The calling program must set the values on the report. You can do it like
this:

Create two labels in the ReportHeader section of your report to contain the
dates:
    lblDateDebut and lblDateFin

In the vb program:
Dim lblRptDateDebut as RptLabel
Dim lblRptDateFin as RptLabel

With RptConceptoNAS
    Set lblRptDateDebut = .Section("ReportHeader").Controls("lblDateDebut")
    Set lblRptDateFin = .Section("ReportHeader").Controls("lblDateFin")

    lblRptDateDebut.Caption = DTPickerDebut.Value
    lblRptDateFin.Caption = DTPickerFin.Value

    .Refresh
    If Not .Visible Then .Show
End With

.rsSQLlisteParticipant.Close
CDate(DTPickerFin.Value)