Public Class Form1
 
    Dim dt As New DataTable
    Const datei As String = "D:\anschriften.xml"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Button1.Text = "Daten neu"
        Button2.Text = "Daten speichern"
        Button3.Text = "Daten leeren"
        Button4.Text = "Daten auslesen"
 
        dt.Columns.Add("Nachname")
        dt.Columns.Add("Vorname")
        dt.Columns.Add("Wohnort")
 
        dt.TableName = "Anschriften"
 
        DataGridView1.DataSource = dt
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        dt.Rows.Add("Irgendwer", "Irene", "Irgendwo")
        dt.Rows.Add("Nirdendwer", "Norbert", "Nirgends")
        dt.Rows.Add("Wiedehopf", "Wilhelm", "Wiesbaden")
        dt.Rows.Add("Wendelin", "Wum", "Mainz")
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        dt.WriteXml(datei)
 
        MessageBox.Show("Die Daten wurden als XML-Datei gespeichert!")
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        dt.Clear()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        dt.ReadXml(datei)
    End Sub
End Class

EALA FREYA FRESENA