dtArtikel = New DataTable("Artikeldaten")
        myDataSet.Tables.Add(dtArtikel)
        ...
        bsArtikel.DataSource = myDataSet
        bsArtikel.DataMember = "Artikeldaten"
        ... 
        Datagrid.DataSource = bsArtikel
 
        ...
 
    Private Sub Löschen()
 
        ' bsArtikel.EndEdit() ändert nix       
        If MessageBox.Show("Soll der aktuelle Artikel wirklich gelöscht" & _
          "werden?", _
                    "Löschen?", MessageBoxButtons.YesNo, _
                    MessageBoxIcon.Question) = DialogResult.Yes Then
            Try
                bsArtikel.RemoveAt(bsArtikel.Position)
                'bsArtikel.RemoveCurrent()   ändert auch nix
                daArtikel.Update(dtArtikel)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            txtArtikelnummer.Focus()
        End If
 
    End Sub