Dim dtTexte As New DataTable
        dtTexte.TableName = "Geometrie und Säulenmaterial"
 
        With dtTexte.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))
        End With
 
        dtTexte.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text,
                         TextBox4.Text, TextBox5.Text, TextBox6.Text, _
                           TextBox7.Text, TextBox8.Text, TextBox9.Text, _
                           TextBox10.Text, TextBox11.Text)
 
        Dim dtCombo As New DataTable
        dtCombo.TableName = "Auswahlboxen"
 
        With dtCombo.Columns
            .Add("Säulenraster", GetType(String))
            .Add("Verfahren", GetType(String))
        End With
 
        With dtCombo.Rows
            .Add(ComboBox3.SelectedItem)
            .Add(ComboBox2.SelectedItem)
        End With
 
        Dim cboC1 As New ComboBox
 
        Dim bsC1 As New BindingSource(dtCombo, Nothing)
        cboC1.DataSource = bsC1
        cboC1.DisplayMember = "Auswahlboxen"
 
 
        Dim dtDGV As New DataTable
        dtDGV.TableName = "Weichschichtdaten"
 
        With dtDGV.Columns
            .Add("Schichtdicke", GetType(Double))
            .Add("Steifemodul", GetType(Double))
            .Add("Kohäsion", GetType(Double))
            .Add("Scherfestigkeit", GetType(Double))
            .Add("Wichte", GetType(Double))
        End With
 
 
        With dtDGV.Rows
            .Add(dtDGV.Rows(0))
            .Add(dtDGV.Rows(1))
            .Add(dtDGV.Rows(2))
            .Add(dtDGV.Rows(3))
            .Add(dtDGV.Rows(4))
 
        End With
 
 
        Dim dgv As New DataGridView
 
        Dim dgvD1 As New BindingSource(dtDGV, Nothing)
        dgv.DataSource = dgvD1
        dgv.DataMember = "Weichschichtdaten"
 
 
 
        Dim ds As New DataSet
        ds.Tables.Add(dtCombo)
        ds.Tables.Add(dtTexte)
        ds.Tables.Add(dtDGV)
 
 
        ds.WriteXml("D:\dataset.xml", XmlWriteMode.WriteSchema)