Dim Uebungen = From u In mDatenXML...<Uebung>
                       Select ID = u.@ID.ToString,
                       Titel = u.<Inhalt>.<Titel>.Value,
                       Anleitung = u.<Inhalt>.<Anleitung>.Value
 
        With ReportDataSourceUebungen
            .Name = "Uebung"
            .Value = Uebungen.ToList
        End With
 
        Me.Controls.Add(ReportViewer1)
        With ReportViewer1
            .Dock = DockStyle.Fill
            LocalReport1 = .LocalReport
            With LocalReport1
                '.SetParameters(New ReportParameter("ID","=fields!ID.value"))   
                ' -->> das gibt einen Fehler
                .DataSources.Add(ReportDataSourceUebungen)
                .ReportEmbeddedResource = "WindowsApplication1.Report1.rdlc"
                .DisplayName = "xxxx"
                .LoadSubreportDefinition("Report2",New StreamReader( _
                  "xxxx\Report2.rdlc"))
                .ShowDetailedSubreportMessages = True
            End With
 
            AddHandler LocalReport1.SubreportProcessing, AddressOf _
              LocalReport1_SubreportProcessing
 
            .RefreshReport()
        End With

  Private Sub LocalReport1_SubreportProcessing(ByVal sender As Object, ByVal e _
    As Microsoft.Reporting.WinForms.SubreportProcessingEventArgs) Handles _
    LocalReport1.SubreportProcessing
        Dim Varianten = From v In mDatenXML...<Variante>
            Where v.Ancestors.Ancestors.Ancestors.Ancestors.@ID.ToString = _
              e.Parameters("ID").Values(0).ToString
            Select ID = v.Ancestors.Ancestors.Ancestors.Ancestors.@ID, Variante _
            = v.Value
 
        With ReportDataSourceVarianten
            .Name = "Varianten"
            .Value = Varianten.ToList
        End With
 
 
        e.DataSources.Add(ReportDataSourceVarianten)
 
End Sub

                      <Subreport Name="Report2">
                          <ReportName>Report2</ReportName>
                          <Parameters>
                            <Parameter Name="ID">
                              <Value>=Fields!ID.Value</Value>
                            </Parameter>
                          </Parameters>