http://msdn.microsoft.com/en-us/library/system.web.ui.webcontrols.calendar(v=vs.110).aspx
Add A Calander Control to your Page.
Private Sub ConfigureCrystalReports()
DatabaseLogin(LoginSuccess)
Dim RptPath As String ="C:\Users\jcassel\Documents\Visual Studio 2012\WebSites\CrystalReportsWebSite4\totalsReport.rpt"
Dim startDate As String = Nothing
Dim endDate As String = Nothing
TotalsReport = New ReportDocument
'Session Variables and Parameters will go here later
If Not IsPostBack Then
startDate = "8/1/1997"
endDate = "8/31/1997"
Session("startDate") = startDate
Session("endDate") = endDate
Else
SelectedDate = calReportMonth.SelectedDate.ToString
startDate= Session("SelectedDate")
endDate = Session("endDate").ToString()
End If
If LoginSucess Then 'True
TotalsReport.Load(RptPath)
Else 'False
'Print Login Error Here
End If
End Sub