Public Class Form1
    Inherits System.Windows.Forms.Form
    Private ds As New DataSet
    Private dv As DataView
    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)
 
        dv = ds.Tables("Text").DefaultView
        dv.Sort = "nr"
 
        txtnr.DataBindings.Add("Text", dv, "text.nr")
        txttext.DataBindings.Add("Text", dv, "text.inhalt")
 
        'cm = BindingContext(ds, "Text")
        cm = CType(BindingContext(dv), CurrencyManager)
 
    End Sub
 
 
    Private Sub btvor_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btvor.Click
        'Position vor:
        cm.Position += 1
    End Sub
 
    Private Sub btrev_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btrev.Click
        'Position 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 Textbaustein 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
 
    Private Sub txttext_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles txttext.TextChanged
        'Freie Zeichen ermitteln
        lblcount.Text = 5000 - Len(txttext.Text)
    End Sub
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If txtsuche.Text = String.Empty Then
            MsgBox("Enter search value")
            Return
        End If
 
        Dim pos As Integer = dv.Find(txtsuche.Text)
        If pos > -1 Then
            cm.Position = pos
        Else
            MsgBox("Entry not found")
        End If
    End Sub
End Class

<?xml version="1.0" standalone="yes"?>
<DataSet>
  <Text>
    <nr>1</nr>
      <inhalt>2</inhalt>
  </Text>
</Dataset>