Private file As String = "F:\Work Dev\VSNet Dev\Test\LoadXmlIntoDataSet.xml"
    Private ds As New DataSet
    Private cm As CurrencyManager
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ds.ReadXml(file, XmlReadMode.InferSchema)
        TextBox1.DataBindings.Add("Text", ds, "kunden.Id")
        TextBox2.DataBindings.Add("Text", ds, "kunden.firma")
        TextBox3.DataBindings.Add("Text", ds, "kunden.vorname")
        TextBox4.DataBindings.Add("Text", ds, "kunden.nachname")
        ' (usw...)
        cm = BindingContext(ds, "kunden")
    End Sub
 
    Private Sub UpButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles UpButton.Click
        cm.Position -= 1
    End Sub
 
    Private Sub DownButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles DownButton.Click
        cm.Position += 1
    End Sub
 
    Private Sub UpdateButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles UpdateButton.Click
        cm.EndCurrentEdit()
        ds.WriteXml(file)
    End Sub