Public Property propDriveCost As Double?

    'The changes will be updated.
    Private Sub cmdSave_Click(sender As System.Object, e As System.EventArgs) _
      Handles cmdDelSave.Click
        Dim delivery = ClassFactory.getDelivery
        For counter = 0 To (dgvDelivery.Rows.Count - 1)
            delivery.propDelId = Convert.ToInt32(dgvDelivery.Item(0, _
              counter).Value)
            Try
                If (IsDBNull(dgvDelivery.Item(9, counter).Value)) Then _
                  'DriveCost
                    Convert.DBNull(dgvDelivery.Item(9, counter).Value) = _
                    DBNull.Value.ToString  'DriveCost
                    MessageBox.Show("Fahrtkosten sind NULL.")
                Else
                    delivery.propDelDriveCost = Convert.ToDouble( _
                      dgvDelivery.Item(9, counter).Value)
                End If
                MessageBox.Show(Convert.ToInt32(dgvDelivery.Item(9, _
                  counter).Value).ToString)
            Catch ex As Exception
                MessageBox.Show("Keine Daten vorhanden.")
            End Try
        Next
    End Sub

I love VBarchiv.net!!