Dim ReportViewer1 As New Microsoft.Reporting.WinForms.ReportViewer
    Dim ReportDataSource1 As New Microsoft.Reporting.WinForms.ReportDataSource
 
    Dim mDatenXML = XDocument.Load("xxxx.xml")
    Dim Uebungen = From uebung In mDatenXML...<Uebung>
                      Select Titel = uebung.<Inhalt>.<Titel>.Value,
                        Materialien = uebung.<Inhalt>...<Materialien>.Value,
                        Anleitung = uebung.<Inhalt>...<Anleitung>.Value
    With ReportDataSource1
      .Name = "Uebung"
      .Value = Uebungen.ToList
    End With
    Me.Controls.Add(ReportViewer1)
    With ReportViewer1
      .Dock = DockStyle.Fill
      With .LocalReport
        .DataSources.Add(ReportDataSource1)
        .ReportEmbeddedResource = "WindowsApplication1.Report1.rdlc"
        .DisplayName = "xxxx"
      End With
      .RefreshReport()
    End With