Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim ds As New DataSet
    Dim file As String = "C:\TEXT.XML"
    Dim cm As CurrencyManager
 
#Region " Vom Windows Form Designer generierter Code "
 
'.......
 
#End Region
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        'XML-DB auslesen:
        ds.ReadXml(file, XmlReadMode.InferSchema)
        txtnr.DataBindings.Add("Text", ds, "text.nr")
        txttext.DataBindings.Add("Text", ds, "text.inhalt")
 
        cm = BindingContext(ds, "Text")
 
    End Sub
 
 
    Private Sub btvor_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btvor.Click
 
	'Text vor:
        cm.Position += 1
    End Sub
 
    Private Sub btrev_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btrev.Click
 
	'Text zurück:
        cm.Position -= 1
    End Sub
 
    Private Sub btsave_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btsave.Click
 
        'Änderungen speichern:
        cm.EndCurrentEdit()
        ds.WriteXml(file)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmbnew.Click
 
        'Neuen Text anlegen:
        cm.AddNew()
    End Sub
 
    Private Sub cmddel_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmddel.Click
 
        'Text löschen:
        CType(cm.List, DataView).Delete(cm.Position)
        ds.WriteXml(file)
    End Sub
 
    Private Sub cmdend_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdend.Click
        'Programm beenden:
        End
    End Sub

<?xml version="1.0" standalone="yes"?>
<DataSet>
  <Text>
    <nr>H2$FFE</nr>
    <inhalt>Dieses ist ein Test!</inhalt>
  </Text>
  <Text>
    <nr>H2$SSX</nr>
    <inhalt>Dies ist mal wieder ein Test!</inhalt>
  </Text>
</DataSet>