Private Function CreateDataset() As DataSet
 
        Dim FormData As New DataSet
 
        With FormData
            .DataSetName = "FormularDaten"
            .Tables.Add(Formulartexte)
            With .Tables(0)
                With .Columns
                    .Add("Flächenverhältnis", GetType(Double))
                    .Add("Säulenradius", GetType(Double))
                    .Add("Aktivierungsaufweitung", GetType(Double))
                    .Add("Dehnsteifigkeit", GetType(Double))
                    .Add("Belastung", GetType(Double))
                    .Add("Luftdruck", GetType(Double))
                    .Add("Ohde", GetType(Double))
                    .Add("Poisson", GetType(Double))
                    .Add("Säulenabstand", GetType(Double))
                    .Add("Scherfestigkeit", GetType(Double))
                    .Add("Wichte", GetType(Double))
                    .Add("Weichschicht", GetType(Double))
                    .Add(Säulenraster, GetType(Integer))
                    .Add(Verfahren, GetType(Integer))
                End With
                .Rows.Add(.NewRow) 'eine Zeile für Inhalt der Textboxen
                .Rows(0)(Säulenraster) = 0 'Index-Voreinstellung der Combos
                .Rows(0)(Verfahren) = 0
            End With
 
            'Tabellen für die Items in den Comboboxen
            .Tables.Add(Säulenraster)
            With .Tables(Säulenraster)
                .Columns.Add(Säulenraster)
                .Rows.Add("Raster1")
                .Rows.Add("Raster2")
            End With
 
            .Tables.Add(Verfahren)
            With .Tables(Verfahren)
                .Columns.Add(Verfahren)
                .Rows.Add("Verfahren1")
                .Rows.Add("Verfahren2")
                .Rows.Add("Verfahren3")
            End With
 
            'Spalten im Grid
            .Tables.Add(Weichschichtdaten)
            With .Tables(Weichschichtdaten).Columns
                .Add("Schichtdicke", GetType(Double))
                .Add("Steifemodul", GetType(Double))
                .Add("Kohäsion", GetType(Double))
                .Add("Scherfestigkeit", GetType(Double))
                .Add("Wichte", GetType(Double))
            End With
        End With
 
        Return FormData
    End Function
End Class