DBNull Fehler im Datagridview

Hallo zusammen,

seit Wochen schlag ich mich mit einem Problem herum, ich hoff einer von euch ist so lieb und hilft mir...

folgender code unten "läuft immer auf siehe Bild"


sämtliches versuchucht (isNothing, <> " ", etc...) immer das selbe ergebnis



Private Sub DatenbankDataGridView_CellPainting(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) _
Handles DatenbankDataGridView.CellPainting


Dim TestZeile As Integer = 0 ' <--- Anpassen
Dim TestSpalte As Integer = 9 ' <--- Anpassen
Dim dgvc_Stil As New DataGridViewCellStyle()
Dim CellWert As Object
Dim CellFarbe As Color
dgvc_Stil = DatenbankDataGridView.Rows(TestZeile).Cells(TestSpalte).Style ' Stil merken
CellFarbe = dgvc_Stil.BackColor ' Farbe merken
CellWert = DatenbankDataGridView.Rows(TestZeile).Cells(TestSpalte).Value


For I As Integer = 0 To DatenbankDataGridView.Rows.Count - 1
CellWert = DatenbankDataGridView.Rows(I).Cells(TestSpalte).Value

If Not TypeOf (DatenbankDataGridView.Rows(TestZeile).Cells(TestSpalte).Value) Is System.DBNull Then

Select Case CellWert
Case "1"
CellFarbe = Color.Green
Case "3"
CellFarbe = Color.Orange
Case "PS"
CellFarbe = Color.Red


End Select
DatenbankDataGridView.Rows(I).Cells(TestSpalte).Style.BackColor = CellFarbe

End If
Next

  If Not IsDBNull(....Value) Then
     ....
  end if

For I As Integer = 0 To DatenbankDataGridView.Rows.Count - 1
  CellWert = DatenbankDataGridView.Rows(I).Cells(TestSpalte).Value
  If Not TypeOf (DatenbankDataGridView.Rows(TestZeile).Cells(TestSpalte).Value) Is System.DBNull Then
    Select Case CellWert
      Case "1"  
        CellFarbe = Color.Green
      Case "3"  
        CellFarbe = Color.Orange
      Case "PS"  
        CellFarbe = Color.Red
    End Select
    DatenbankDataGridView.Rows(I).Cells(TestSpalte).Style.BackColor = CellFarbe
  End If
Next