Private Sub Löschen()
        Dim dataRow As CoreLab.Common.DbDataRowView = _
                    CType(grdHandelsware.CurrentRow.DataRow, _
                    CoreLab.Common.DbDataRowView)
        If Artikellöschen(dataRow) = True Then
            UpdateDataSet()
        End If
    End Sub
 
Private Function Artikellöschen(ByVal dRow As CoreLab.Common.DbDataRowView) As _
  Boolean
        Dim Gelöscht As Boolean = True
        Dim Antwort As MsgBoxResult = Nothing
        Antwort = MsgBox(String.Format("Sind Sie sicher, dass Sie den Artikel:" & _
          "" & Environment.NewLine & _
                            "{0} löschen möchten?", dRow.Item( _
                            "ArtikelBez").ToString), _
                            MsgBoxStyle.Critical + MsgBoxStyle.YesNo, _
                            "KONTROLLE")
        If Antwort = MsgBoxResult.No Then
            Gelöscht = False
        Else
            Me.DtsHandelsware.Tables("auftraghandelsware").Rows.Remove(dRow.Row)
        End If
        Return Gelöscht
    End Function
 
Private Sub UpdateDataSet()
 ' H I E R   W I R D   F A L S E   A U S G E W E R T E T 
        If DtsHandelsware.HasChanges = True Then
            If Me.DtsHandelsware.HasErrors = False Then
                Try
                    DtAHandelsware.Update(DtsHandelsware)
                    Me.grdHandelsware.Refetch()
                Catch ex As Exception
                    MsgBox(String.Format("Achtung! Folgender Fehler ist während" & _
                      "des Schreibens in die Datenbank aufgetreten: " & _
                           Environment.NewLine & "{0}", ex.Message), _
                           MsgBoxStyle.Critical, _
                           "KONTROLLE")
                    Me.grdHandelsware.Refetch()
                End Try
            Else
                MsgBox("Die Aktualisierung der Datenbank kann " & _
                  Environment.NewLine & _
                       "nicht stattfinden, da Fehler vorhanden sind", _
                       MsgBoxStyle.Critical + _
                       MsgBoxStyle.Information, "KONTROLLE")
            End If
        End If
    End Sub