Me.ChildBindingSource.AddNew()

Private Sub ChildBindingSource_AddingNew(ByVal sender As Object, ByVal e As _
  System.ComponentModel.AddingNewEventArgs) Handles ChildBindingSource.AddingNew
 
        Dim bs As BindingSource = sender
 
        Dim dv As DataView = bs.List
 
        Dim test2 As DataRowView = dv.AddNew
 
        test2("artikel_id") = 22
        test2("pos_nr") = 1
        test2("pos_text") = "test"
        test2("menge") = 1
        test2("preis") = 2
 
        bs.Position = bs.Count - 1
        e.NewObject = test2
 
 
    End Sub