'Datenklasse
        Dim dtTexte As New DataTable
        dtTexte.TableName = "Meine Textbox_Daten"
 
        With dtTexte.Columns
            .Add("Flächenverhältnis", GetType(String))
            .Add("Säulenradius", GetType(Double))
            .Add("Belastung", GetType(Integer))
        End With
 
        dtTexte.Rows.Add("0.1", 0.4, 100)
 
        'Speichern     
        dtTexte.WriteXml("C:\daten\test.xml", XmlWriteMode.WriteSchema)
 
        dtTexte.Clear()
 
        'Laden
        dtTexte.ReadXml("C:\daten\test.xml")
 
        'Infrastruktur für Bindung
        Dim bsTexte As New BindingSource(dtTexte, Nothing)
 
 
        bsTexte.Position = 0
 
        'Datenbindung an Controls
        Dim txtFlächenverhältnis, txtSäulenRadius, txtBelastung As New TextBox
 
        txtFlächenverhältnis.DataBindings.Add("Text", bsTexte, _
          "Flächenverhältnis")
        txtSäulenRadius.DataBindings.Add("Text", bsTexte, "Säulenradius")
        txtBelastung.DataBindings.Add("Text", bsTexte, "Belastung")