Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "DBTestDataSet.user". 
        ' Sie können sie bei Bedarf verschieben oder entfernen.
        Me.UserTableAdapter.Fill(Me.DBTestDataSet.user)
 
    End Sub
 
    Private Sub UserBindingNavigatorSaveItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      UserBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.UserBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DBTestDataSet)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dt As New DataTable
        Dim row As DataRow = dt.NewRow()
        row("sVorname") = "Peter"
        dt.Rows.Add(row)
        DBTestDataSet.Tables.Add(dt)
        UserBindingSource.MoveLast()
    End Sub

Dim dt As New DataTable("fam")