Private Sub ConfigureCrystalReportsAgingGroup()
Dim Report As New ReportName
Report.DataSourceConnections.Item(DBSERVERNAME, DBNAME).SetLogon(DBUsername, DBPassword)
Report.SetParameterValue("ParamName", "Values")
CrystalReportViewer1.EnableParameterPrompt = False
CrystalReportViewer1.ReportSource = Report
End Sub