FG.OwnerDraw = flexODOver
    Set FG.DataSource = rs
    FG.ColHidden( 0 ) = True

Private Sub FG_DrawCell(ByVal hDC As Long, ByVal Row As Long, ByVal Col As Long, ByVal Left As Long, ByVal Top As Long, ByVal Right As Long, ByVal Bottom As Long, Done As Boolean)
    If FG.ColIndex("Country") = Col Then
        Select Case FG.Cell(flexcpText, Row, Col)
            Case "USA"
                FG.Cell(flexcpBackColor, Row, Col) = vbRed
                'FG.CellBackColor = vbRed
            Case "UK"
                FG.Cell(flexcpBackColor, Row, Col) = vbBlue
            Case Else
        End Select
    End If
End Sub