Private Sub DG_FEHLER_UserDeletingRow(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles _
      DG_FEHLER.UserDeletingRow
        Dim result As MsgBoxResult
        result = MsgBox("Möchten Sie diesen Fehler-Status wirklich löschen?", _
          MsgBoxStyle.YesNo, Application.CompanyName & " - " & _
          Application.ProductName)
        If result = MsgBoxResult.Yes Then
            Delete_Fehler.Parameters("GUID").Value = _
              Me.GUIDDataGridViewTextBoxColumn.DataGridView.CurrentCell.Value
            'MsgBox( 
            ' Me.GUIDDataGridViewTextBoxColumn.DataGridView.CurrentCell.Value)
            Me.OracleConnection.Open()
            Me.Delete_Fehler.ExecuteNonQuery()
            Me.OracleConnection.Close()
            DSCOGLAS.TBCOGLAS_FEHLER.Clear()
            DAFEHLER.Fill(DSCOGLAS.TBCOGLAS_FEHLER)
        Else
            e.Cancel = True
        End If
    End Sub