Dim pa1 = New ReportParameter("Name", "Schmidt")
Dim pa2 = New ReportParameter("Vorname", "Hans")
Dim params(1) As ReportParameter
params = New ReportParameter() {pa1, pa2}
 
With ReportViewer1
    .Reset()
    .ProcessingMode = ProcessingMode.Local
    .LocalReport.ReportPath = Pfad + Reportname + ".rdl"
    Dim rds As New ReportDataSource("myDatasource", myDataSet.Tables(myTabelle))
    .LocalReport.DataSources.Add(rds)
    .LocalReport.SetParameters(params)
    .RefreshReport()
    .Update()
End With

Salzburger