<?xml version="1.0" standalone="yes"?>
<DataSet>
  <DataTable>
    <id>0</id>
    <vorname>klaus</vorname>
    <nachname>meier</nachname>
  </DataTable>
  <DataTable>
    <id>1</id>
    <vorname>anton</vorname>
    <nachname>meyer</nachname>
  </DataTable>
  <DataTable>
    <id>2</id>
    <vorname>peter</vorname>
    <nachname>lustig</nachname>
  </DataTable>
  <DataTable>
    <id>3</id>
    <vorname>ulrich</vorname>
    <nachname>müller</nachname>
  </DataTable>
</DataSet>

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
 
        Dim ds As New Data.DataSet("DataSet")
        Dim dt As New Data.DataTable("DataTable")
        Dim dr As Data.DataRow
 
        dt.Columns.Add("id", GetType(Integer))
        dt.Columns.Add("vorname", GetType(String))
        dt.Columns.Add("nachname", GetType(String))
 
        dr = dt.NewRow
        dr("id") = 0
        dr("vorname") = "klaus"
        dr("nachname") = "meier"
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("id") = 1
        dr("vorname") = "anton"
        dr("nachname") = "meyer"
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("id") = 2
        dr("vorname") = "peter"
        dr("nachname") = "lustig"
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("id") = 3
        dr("vorname") = "ulrich"
        dr("nachname") = "müller"
        dt.Rows.Add(dr)
 
        ds.Tables.Add(dt)
        ds.WriteXml("C:\tmp\data.xml")
 
    End Sub

    Dim dt As Data.DataTable = Nothing
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim ds As Data.DataSet = New Data.DataSet
        Dim filename As String = "C:\tmp\data.xml"
        ds.ReadXml(filename)
        dt = ds.Tables(0)
        Me.TextBox1.DataBindings.Add(New Binding("Text", dt, "vorname"))
    End Sub
 
    Private Sub btnPrev_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnPrev.Click
        Me.BindingContext().Item(dt).Position -= 1
    End Sub
 
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnNext.Click
        Me.BindingContext().Item(dt).Position += 1
    End Sub