1: 2: 3: 4: 5: 6: 7:
Dim StartDate As DateTime = Date.Now Dim EndDate As DateTime = Date.Now Dim p As New ReportParameter p.Name = "ParamName" p.Values.Add(StartDate.ToString) p.Values.Add(EndDate.ToString) ReportViewer.ServerReport.SetParameters(p)