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