Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnAdd.Click 
  Try 'Aktuelle Bearbeitungen löschen 
    Me.BindingContext(DataView1).EndCurrentEdit() 
    Dim dr as DataRow = DS_NavTest1.Tables(0).Rows.NewRow()
    DS_NavTest1.Tables(0).Rows.Add(dr)  
  Catch eEndEdit As System.Exception 
    System.Windows.Forms.MessageBox.Show(eEndEdit.Message) 
  End Try 
  Me.dataview1_PositionChanged() 
End Sub