Public Class frmSnoopy
    Private bs As New BindingSource
    Private ds As New DataSet
 
    Private Sub frmSnoopy_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        ' ggf. XML laden
        If IO.File.Exists("I:\daten\MeineBenutzer.xml") Then
            ds.ReadXml("I:\Daten\MeineBenutzer.xml", _
                       XmlReadMode.InferTypedSchema)
        End If
 
        ' Datatable an Bindingsource binden
        bs.DataSource = ds.Tables(0)
 
        ' Steuerelemente an Bindingsource binden
        Me.DataGridView1.DataSource = bs
        Me.TextBox1.DataBindings.Add("Text", bs, "Benutzer", True)
        Me.TextBox2.DataBindings.Add("Text", bs, "Passwort", True)
 
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As  _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        ' Beim Beenden der Anwendung die DataTable speichern
        Me.Validate() : bs.EndEdit()
        ds.Tables(0).WriteXml("I:\daten\MeineBenutzer.xml")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button1.Click
        ' Neuer Eintrag 
        bs.AddNew()
    End Sub
 
End Class