Dim DataSetToPrint As New DataSet()
        Dim myDataTable As New DataTable()
        Dim DataColumn As DataColumn
        Dim DataRow As DataRow
 
        'Virtuelle Tabelle erstellen um die Inhalte der nichtgebundenen 
        ' Steuerelemente zu integrieren
        DataColumn = New DataColumn()
        With DataColumn
            .DataType = System.Type.GetType("System.Int32")
            .ColumnName = "Filialnr"
        End With
        myDataTable.Columns.Add(DataColumn)
 
        DataColumn = New DataColumn()
        With DataColumn
            .DataType = System.Type.GetType("System.String")
            .ColumnName = "Filialname"
        End With
        myDataTable.Columns.Add(DataColumn)
 
        DataColumn = New DataColumn()
        With DataColumn
            .DataType = System.Type.GetType("System.String")
            .ColumnName = "Datum"
        End With
        myDataTable.Columns.Add(DataColumn)
 
 
        DataRow = myDataTable.NewRow
        DataRow("Filialnr") = Me.cboFiliale.SelectedValue
        myDataTable.Rows.Add(DataRow)
 
        DataRow = myDataTable.NewRow
        DataRow("Filialname") = Me.cboFiliale.Text
        myDataTable.Rows.Add(DataRow)
 
        DataRow = myDataTable.NewRow
        DataRow("Datum") = Me.DateTimePicker1.Value.ToShortDateString
        myDataTable.Rows.Add(DataRow)
 
 
 
        'Dataset mit den beiden Tabellen füllen
 
        DataSetToPrint.Tables.Add(myDataTable) 'Virtuelle Tabelle
        DataSetToPrint.Tables.Add(sqldt)         'Standard Tabelle an DBGrid 
        ' gebunden
 
        Me.crWGR1.SetDataSource(DataSetToPrint)
        Me.crWGR1.Refresh()
 
        With Me.CrystalReportViewer1
            .ReportSource = crWGR1
            .Refresh()
        End With