'The changes will be updated.
    Private Sub cmdSave_Click(sender As System.Object, e As System.EventArgs) _
      Handles cmdDelSave.Click
        Dim delivery = ClassFactory.getDelivery
        delivery.propDelId = Convert.ToInt32(dgvDelivery.Item(0, _
          dgvDelivery.CurrentRow.Index).Value) 'Delivery-ID
        Try
            If (IsDBNull(dgvDelivery.Item(9, _
              dgvDelivery.CurrentRow.Index).Value)) Then 'Drive-Cost
                dgvDelivery.Item(10, dgvDelivery.CurrentRow.Index).Value = _
                DBNull.Value
                Convert.DBNull(dgvDelivery.Item(9, _
                dgvDelivery.CurrentRow.Index).Value) = DBNull.Value   _
                'Drive-Cost
            Else
                delivery.propDelDriveCost = Convert.ToDouble(dgvDelivery.Item( _
                  9, dgvDelivery.CurrentRow.Index).Value)
            End If
            If (IsDBNull(dgvDelivery.Item(8, _
              dgvDelivery.CurrentRow.Index).Value)) Then 'Drive-Cost
                dgvDelivery.Item(10, dgvDelivery.CurrentRow.Index).Value = _
                DBNull.Value 'Packet-Price
            Else
                delivery.propDelPacketQuant = Convert.ToDouble(dgvDelivery.Item( _
                  8, dgvDelivery.CurrentRow.Index).Value)
            End If
        Catch
        End Try
        calcPacketPrice() 'Calculates the Packet-Price
        statementDelivery.update(delivery)
    End Sub

I love VBarchiv.net!!