Makera speciella celler i anullunda färger i MSFlexgrid

Hej.
Nu har jag ett retfult problem.
I en MSFlexgrid så laddar jag in bl a datum titel Sverige Europa och Världen.
I dom tre sista fälten så fins nulereriska värden. Det jag vill åstakomma är att om det står en 1:a, så skall cellens bakgrund bli röd osv.
Jag har NÄSTAN löst det, men färgändringen ligger en rad efter..
Om jag t ex har följande:

Sverige
12
16 <---denna blir röd
1 <---denna blir röd
1 <---inte denna
12

Jag vill ha ut tre olika färger, men saken upprepas, färgändring kommer en rad för tidigt.
Så här ser min kod ut:

While mittRS2.EOF = False
For i = 1 To 4
    If mittRS2.Fields(i) = "1" And Len(mittRS2.Fields(i)) = 1 Then

        MSFlexGrid1.col = i
        MSFlexGrid1.row = j
        Label1.Caption = j
        MSFlexGrid1.CellForeColor = vbWhite
        MSFlexGrid1.CellBackColor = RGB(245, 93, 17)
    ElseIf mittRS2.Fields(i) = "2" And Len(mittRS2.Fields(i)) = 1 Then
     
        MSFlexGrid1.col = i
        MSFlexGrid1.row = j
        Label1.Caption = j
        MSFlexGrid1.CellForeColor = vbWhite
        MSFlexGrid1.CellBackColor = RGB(1, 180, 220)
     ElseIf mittRS2.Fields(i) = "3" And Len(mittRS2.Fields(i)) = 1 Then
    
        MSFlexGrid1.col = i
        MSFlexGrid1.row = j
        Label1.Caption = j
        MSFlexGrid1.CellForeColor = vbWhite
        MSFlexGrid1.CellBackColor = RGB(126, 209, 130)
    End If
    Next
    
    MSFlexGrid1.AddItem vbTab & mittRS2.Fields(1) & _
    vbTab & _
    mittRS2.Fields(2) & _
    vbTab & _
    mittRS2.Fields(3) & _
    vbTab & _
    mittRS2.Fields(4)
 
    mittRS2.MoveNext

 j = j + 1
Wend

Det här har jag brotats med nu ganska länge, och det är ju bara den "lilla klicken kvar".
Någon som kan se lösningen? :q