Private Function DataTableHeaderKennzahlenErzeugen(ByVal SpielNr As Int16, _
    ByVal FirmenName As String, ByVal Periode As Int16) As DataTable
        'erzeugt einen DataTable für den Kennzahlenheader
        'Spalten im DT erzeugen
        Dim dt As New DataTable("HeaderKennzahlen")
        'Dim col As DataColumn
        'col.AllowDBNull = False
        'col.Unique = True
        With dt.Columns
            .Add("Spalte1", GetType(Int16))
            .Add("Spalte2ype(String))
            .Add("Spalte3ype(Int16))
        End With
        dt.Columns(0).Unique = True
 
        'Datensatz hinzufügen
        Dim newRow As DataRow = dt.NewRow
        newRow("Spalte1")=Textboxinhalt1
        newRow("Spalte2") = Textboxinhalt2
        newRow("Spalte3") = Textboxinhalt3
        dt.Rows.Add(newRow)
        Return dt
    End Function