[VB6] Colore di una cella in base a condizione

[val]

salve ragazzi,
sto popolando una MSFlexGrid1 con dati presi da un database. Quello che intendo fare è verificare se un particolare campo della tabella sia minore di zero allora mi colora quella cella di rosso.
Il codice realizzato è il seguente ma non mi funziona:

Set Rs = Db.OpenRecordset("SELECT * FROM info where idSottoCategoria=" & LstCustomer.ItemData(LstCustomer.ListIndex))

MSFlexGrid1.Rows = 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Rows = 1
MSFlexGrid1.Text = Rs.Fields("mese").Name

MSFlexGrid1.Col = 1
MSFlexGrid1.Rows = 1
MSFlexGrid1.Text = Rs.Fields("data").Name

MSFlexGrid1.Col = 2
MSFlexGrid1.Rows = 1
MSFlexGrid1.Text = Rs.Fields("INFO").Name

MSFlexGrid1.Col = 3
MSFlexGrid1.Rows = 1
MSFlexGrid1.Text = Rs.Fields("valore").Name

If Rs.EOF = False Then

Rs.MoveFirst

Do While Rs.EOF = False

' se valore è negativo allora coloro la cella rossa
If Rs.Fields("valore") < 0 Then
MSFlexGrid1.CellBackColor = vbRed
End If

MSFlexGrid1.AddItem Rs.Fields("mese") & Chr(9) & Rs.Fields("data") & Chr(9) & Rs.Fields("INFO") & Chr(9) & Format(Rs.Fields("valore"), "#0.00")
Rs.MoveNext
Loop
End If

Rs.Close

[alka]

Immagino si tratti di VB6...confermi?

Ricordati che il linguaggio di programmazione (e la versione) vanno indicati anche nel titolo, come da Regolamento.

Ciao!

[val]

si, si tratta di VB6 ... mi scuso ma è la prima volta che scrivo in questo forum ...

[alka]

Originariamente inviato da val
si, si tratta di VB6 ... mi scuso ma è la prima volta che scrivo in questo forum ...

No problem. Correggo il titolo (così puoi prendere spunto).

Ciao!