Visual Basic - Colorear filas en grid

Que tal foro. Tengo una pantalla en la cual muestro unos reportes que tienen fecha de vencimiento y fecha de alarma, los muestro sin problemas, pero necesito colorear la fila en la cual el reporte su fecha de alarma ya halla pasado la fecha actual.

Este es mi codigo:

Private Sub LlenarGrid()
Cadena = "SELECT * FROM (MesaControl INNER JOIN Clientes ON MesaControl.iDClienteMesaControl=Clientes.iDCliente) INNER JOIN Sucursales ON MesaControl.iDSucursalMesaControl=Sucursales.iDSucursal WHERE StatusMesaControl='Abierto' ORDER BY FechaLimiteMesaControl ASC"

AbrirDAO
Set Dr = BaseDatos.OpenRecordset(Cadena)

VarFecha1 = Format(TxtFecha.Text, "dd/MM/yyyy HH:mm:ss")
VarFecha2 = Format(Dr!FechaAlarmaMesaControl, "dd/MM/yyyy HH:mm:ss")

If Dr.EOF <> Empty Then
Exit Sub
End If
Do While Not Dr.EOF
If VarFecha1 >= VarFecha2 Then
MSFlexGrid.BackColor = &HFF&
Else
MSFlexGrid.BackColor = &H80000005
End If
MSFlexGrid.AddItem vbTab & Trim(Dr!NombreCliente) & vbTab & Trim(Dr!NombreSuc) & vbTab & Trim(Dr!Folio) & vbTab & Trim(Dr!FechaMesaControl) & vbTab & Trim(Dr!ProblemaReportadoMesaControl) & vbTab & Trim(Dr!PrioridadMesaControl) & vbTab & Trim(Dr!FechaAlarmaMesaControl) & vbTab & Trim(Dr!FechaLimiteMesaControl)
MSFlexGrid.TextMatrix(MSFlexGrid.Rows - 1, 0) = MSFlexGrid.Rows - 1
MSFlexGrid.ColAlignment(2) = 0
Dr.MoveNext
Loop
CerrarDAO
End Sub

Lo que hace es pintarme todo, o todo blanco o todo rojo.

De antemano mil gracias.

Saludos.

esto se usa para pintar una celda

MSFlexGrid1.CellBackColor = vbRed

como no tengo el visual 6 instalado, prueba buscando si existe la propiedad rowbackcolor. o algo relacionado con la fila

Tiera razon Jaime, yo busque y no encontre algo directamente con la fila asi que este ejemplo puedes adaptarlo para que te pinte la fila que quieras.

Pintar la Fila 1

MSHFlexGrid1.Row = 1 '-- fila 1
For i = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.col = i
MSHFlexGrid1.CellBackColor = vbRed
Next i

Gracias Jaime y Julio por sus respuestas, tenian razon despues de tanto buscar y batallar por encontre lo que busco, a no ser por el pequeno inconveniente que la ultima fila no me la pinta no se porque funciona bien.

Saludos.

Private Sub ColorearFecha()
Dim Fila As Integer
Dim Columna As Integer
With MSFlexGrid
For Fila = 1 To .Rows - 1
For Columna = 1 To .Cols - 1
If CDate(Format(VarFecha1, "dd/MM/yyyy HH:mm:ss")) <= CDate(Format(.TextMatrix(Fila, 7), "dd/MM/yyyy HH:mm:ss")) Then
.Row = Fila
.Col = Columna
.CellBackColor = vbRed
End If
Next Columna
Next Fila
End With
End Sub

cambia
For Columna = 1 To .Cols - 1
por
For Columna = 1 To .Cols

se usa el cols-1 cuando inicias en 0

Ya lo habia intentado