Private Function KennzahlenDataSet(ByVal intAktPeriode As Integer, ByVal _
     intAktSpielNummer As Integer, ByVal strSzenario As String, ByVal _
     strAktFirma As String) As DataSet
        ' Diese Funktion erzeugt ein dynamisches DataSet und übergibt es der 
        ' aufrufenden Instanz.
 
        'DataSet erzeugen
        Dim oKennzahlenBerichte As New CStartBerichte(intAktSpielNummer, _
          strSzenario, intAktPeriode, strAktFirma)
        Dim myKennzahlenDataSet As New DataSet
        myKennzahlenDataSet.Clear() 'DataSet leeren
        'Einlesen aller Tabellen ins DataSet
        'jeder Bericht bekommt seine eigene Datenquelle / DataTable zugewiesen
 
        'DataSet für den Hauptbericht
        myKennzahlenDataSet.Tables.Add(oKennzahlenBerichte.dtHeader) 'Table 0
        myKennzahlenDataSet.Tables.Add( _
          oKennzahlenBerichte.dtTeamInfoKennzahlen) 'Table 1
        myKennzahlenDataSet.Tables.Add( _
        oKennzahlenBerichte.dtSpielNummerKennzahlen) 'Table 2
 
 
        'XML Schema für die Feldnamen auf die Platte schreiben - einmalig 
        ' notwendig zur Berichtserstellung
        myKennzahlenDataSet.WriteXmlSchema("c:\temp\Kennzahlen.xsd")
        'myBerichtsDataSet = Nothing
 
        Return myKennzahlenDataSet
        myKennzahlenDataSet = Nothing
    End Function