TROCAR A COR DA FONTE DE UMA PESQUISA SQL

MSFlexGrid.Col = 0
For i = 1 to MSFlexGrid.Rows
   MSFlexGrid.Row = i
   if MSFlexGrid.textMatrix(i,0) = 0 then
      MSFlexGrid1.CellForeColor = &HFF&
   end if
Next

'(i,0)
' i = Linha
' 0 = Coluna

Dim i As Integer
Data1.RecordSource = "select codigo_cliente,nome,endereco,telefone from Clientes order by nome"
'Aqui você popula a toda linha do grid
If TBClientes("status") = 0 Then
  MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
  For i = 0 To MSFlexGrid1.Cols - 1
    MSFlexGrid1.Col = i
    MSFlexGrid1.CellBackColor = &HFF&
  Next i
End If

Dim i As Integer, j As Integer
Data1.RecordSource = "select codigo_cliente,nome,endereco,telefone,status from Clientes order by nome"
With MSFlexGrid1
  Data1.Refresh
  .Refresh
  For j = 1 To .Rows - 1
    If .TextMatrix(j, 4) = 0 Then '4 = Coluna que recebe o Status
      .Row = j
      For i = 0 To .Cols - 1
        .Col = i
        .CellBackColor = &HFF&
      Next i
    End If
  Next j
  .Cols = .Cols - 1 'Remove a coluna de Status (considerando que é a última)
End With