Private Sub DataGrid1_Enter(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles DataGrid1.Enter
 
        Try
            'Aktuelle Bearbeitungen löschen
            Me.BindingContext(DataSet1).EndCurrentEdit()
            Me.BindingContext(DataSet1).AddNew()
        Catch eEndEdit As System.Exception
            System.Windows.Forms.MessageBox.Show(eEndEdit.Message)
        End Try
End Sub