have you tried setting parameter values, like..
Dim cr As New CrystalDecisions.CrystalReports.Engine.ReportDocument
cr.Load(strReportPath)
cr.SetDataSource(DS.Tables("Customers"))
cr.SetParameterValue("StartDate", strMyParmValue)
CrystalReportViewer1.ReportSource = cr