Private ds As DataSet
    Public Sub New(ByVal DS As DataSet)
        MyBase.New()
 
        'This call is required by the Windows Form Designer.
        InitializeComponent()
 
        'Add any initialization after the InitializeComponent() call
 
        Dim rp As SB_Bericht = New SB_Bericht
 
        rp.SetDataSource(DS.Tables(0))
 
        CrystalReportViewer1.ReportSource = rp
 
    End Sub
 
    Private Sub frmDruckVorschau_Shown(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles MyBase.Shown
        CrystalReportViewer1.PrintReport()
    End Sub