Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
 
        Dim dt As New DataTable("Lieferanten")
        ds.Tables.Add(dt)
 
        Dim col0 As DataColumn = dt.Columns.Add("Lieferant", _
          System.Type.GetType("System.String"))
        Dim col1 As DataColumn = dt.Columns.Add("Nummer", System.Type.GetType( _
        "System.String"))
        Dim col2 As DataColumn = dt.Columns.Add("Inhalt", System.Type.GetType( _
        "System.String"))
 
        DataGrid1.DataSource = ds
 
        ds.ReadXml("M:\XMLDateien\lieferanten2.xml")
 
    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button4.Click
 
              ds.WriteXml("M:\XMLDateien\lieferanten2.xml")
 
        Me.Close()
 
    End Sub