Dim res = (From var In loc_ds.Tables("Rechnungen").AsEnumerable Where _
   var.Field(Of Boolean)("Bearbeitungsstatus") = False).ToList
 
        Dim rptviewer As ReportViewer = ReportViewer1
 
        Dim rpt As New ReportDataSource
        rpt.Name = "Testreport"
        rpt.Value = res
 
        rptviewer.LocalReport.ReportEmbeddedResource = "Report1.rdlc"
        rptviewer.LocalReport.DataSources.Add(rpt)
        MyBase.OnLoad(e)