'Verpackungsverzichte der einzelnen Posten aktualisieren
        Dim dc As OleDb.OleDbCommand
        Dim MyRow As Infragistics.Win.UltraWinGrid.UltraGridRow = _
          UltraGrid_BestellungNeu.ActiveRow
 
        Dim ArtID As String = MyRow.GetCellText(MyRow.Band.Columns("ID"))
        Dim VEVZ As Integer
        If MyRow.GetCellText(MyRow.Band.Columns("VEVZ")) = True Then
            VEVZ = 1
        ElseIf MyRow.GetCellText(MyRow.Band.Columns("VEVZ")) = False Then
            VEVZ = 0
        End If
 
        dc = New OleDb.OleDbCommand("UPDATE bestellungen SET VEVZ=" & VEVZ & "" & _
          "WHERE [lfd-Nr]=" & ArtID, Conn)
        Try
            dc.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try