how can i Pass two datepicker date to crystal report?

'it uses a db name BRWData.mdb
Private Sub Command1_Click()
'reports.BoundText is a datalist contain report name like rptSale.rpt
TxT = App.Path & "\Reports\" & reports.BoundText
 
Dim cr As New CRAXDRT.Application
Dim rpt As CRAXDRT.Report
 
Set rpt = cr.OpenReport(TxT, 1)
rpt.DiscardSavedData
 
For i = 1 To rpt.Database.Tables.Count
    rpt.Database.Tables(i).SetTableLocation App.Path & "\BRWData.mdb", rpt.Database.Tables(i).Name, ""
Next
 
 
 
 
rpt.GroupSelectionFormula = ""
 
rpt.RecordSelectionFormula = getDates
 
rpt.ReportTitle = reports.Text
 
With frmReportsView.creport
 
.EnableAnimationCtrl = True
.EnableCloseButton = True
.EnableExportButton = True
.EnableNavigationControls = True
.EnableProgressControl = True
.EnableZoomControl = True
 
Do While .IsBusy              'ZOOM METHOD DOES NOT WORK WHILE
        DoEvents                          'REPORT IS LOADING, SO WE MUST PAUSE
Loop
    
.Zoom 1200
.ReportSource = rpt
.EnableRefreshButton = True
.ViewReport
End With
frmReportsView.Caption = reports.Text
frmReportsView.Show
'clean up
Set rtp = Nothing
Set cr = Nothing
End Sub
 
 
Function getDates()
    If Option2.Value = True Then
        getDates = "{tblBRW.ReportDate} in Date (" & DateFrom.Year & "," & DateFrom.Month & "," & DateFrom.Day & ") to Date (" & DateTO.Year & "," & DateTO.Month & "," & DateTO.Day & ")"
    Else
        getDates = "{tblBRW.EventDate} in Date (" & DateFrom.Year & "," & DateFrom.Month & "," & DateFrom.Day & ") to Date (" & DateTO.Year & "," & DateTO.Month & "," & DateTO.Day & ")"
    End If
    
End Function
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

Sub setSubReportDates(fldName As String, Dmin As Date, dMax As Date)
'rpt is parent report
 
Dim crSecs As CRAXDRT.Sections
Dim crSec As CRAXDRT.Section
Dim crRepObjs As CRAXDRT.ReportObjects
Dim crSubRepObj As CRAXDRT.SubreportObject
Dim crSubReport As CRAXDRT.Report
Dim i As Integer
 
Set crSecs = rpt.Sections
For i = 1 To crSecs.Count
  Set crSec = crSecs.Item(i)
  Set crRepObjs = crSec.ReportObjects
    For X = 1 To crRepObjs.Count
      If crRepObjs.Item(X).Kind = crSubreportObject Then
          Set crSubReport = rpt.OpenSubreport(crRepObjs.Item(X).SubreportName)
            crSubReport.ParameterFields.GetItemByName(fldName).AddCurrentRange CDate(Dmin), CDate(dMax), crRangeIncludeLowerBound + crRangeIncludeUpperBound
          
      End If
    Next
Next
 
 
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25: