Public Class frmtest
 
    Dim xmlfile As String = "U:\meinelinks.xml"
 
    'statt Designer werden Controls hier per Code erstellt
    Dim dg As New DataGridView With {.Parent = Me, .Top = 50}
 
    Dim WithEvents btnAddNew As New Button With _
           {.Parent = Me, .Text = "Add New Row"}
 
    Dim ds As New DataSet
 
    Private Sub frmtest_Load(sender As System.Object, _
          e As System.EventArgs) Handles MyBase.Load
 
        'z.B. neue Zeile nur per Button erlauben, 
        'nicht direkt im Grid
        dg.AllowUserToAddRows = False 
 
        'Daten in das Dataset laden
        ds.ReadXml(xmlfile)
 
        'Tabelle ans Grid binden
        dg.DataSource = ds.Tables(0)
    End Sub
 
    Private Sub btnAddNew_Click(sender As Object, _
        e As System.EventArgs) Handles btnAddNew.Click
 
        'Neue Zeile erstellen
        Dim r As DataRow = ds.Tables(0).NewRow
 
        'neue zeile ggf. per Code mit Werten füllen
        ' ....... z.B. aus Textboxen
 
        'neue Zeile an die Tabelle anhängen
        ds.Tables(0).Rows.Add(r)
    End Sub
End Class