Imports Microsoft.Reporting.WinForms
 
Public Class Form1
 
    Private nwDS As New NordwindDataSet()
    ' Beide Tabellen des typ. DataSets aus der Datenbank füllen: 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler ReportViewer1.LocalReport.SubreportProcessing, AddressOf _
        LocalReport_SubreportProcessing
        Dim kta As New NordwindDataSetTableAdapters.KundenTableAdapter()
        kta.Fill(nwDS.Kunden)
        Dim bta As New NordwindDataSetTableAdapters.BestellungenTableAdapter()
        bta.Fill(nwDS.Bestellungen)
        ' ReportViewer mit Reportdatenquelle und Reportressource verbinden:
        ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource( _
          "NordwindDataSet_Kunden", nwDS.Kunden))
        ReportViewer1.LocalReport.ReportEmbeddedResource = _
        "SubReport.Kunden.rdlc"
        ReportViewer1.RefreshReport()
        Me.ReportViewer1.RefreshReport()
    End Sub
 
    Private Sub LocalReport_SubreportProcessing(ByVal sender As Object, ByVal e _
      As SubreportProcessingEventArgs)
        e.DataSources.Add(New ReportDataSource("NordwindDataSet_Bestellungen", _
        nwDS.Bestellungen))
    End Sub
 
End Class

 
ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource( _
  "NordwindDataSet_Kunden", nwDS.Kunden))