Перекрасить цвет ячейки MS FLEXGRID

 Dim j As Long
 
 grid.Cols = 15
 grid.Rows = 15
 
 For j = 0 To grid.Rows - 1
 
     grid.Row = j
     grid.Col = j
     
     grid.CellBackColor = vbRed
Next

Private Sub Form_Load()
    Call SQL
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub
 
Private Sub Form_Resize()
    On Error Resume Next
    dtaGrid.Width = Me.Width - 450: dtaGrid.Height = Me.Height - 2670
End Sub
 
Sub SQL()
On Error GoTo ER:
    Set rs = Nothing
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * From tblData", conn, 3, 3
    Set dtaGrid.DataSource = rs
    
    With dtaGrid
        .TextMatrix(0, 0) = "ID":: .ColWidth(0) = 0
        .TextMatrix(0, 1) = "ФИО": .ColWidth(1) = 3000
        .TextMatrix(0, 2) = "Предмет": .ColWidth(2) = 4250
        .TextMatrix(0, 3) = "Дата начала": .ColWidth(3) = 1400
        .TextMatrix(0, 4) = "Дата окончания": .ColWidth(4) = 1600
        .TextMatrix(0, 5) = "Цена": .ColWidth(5) = 2000
        .TextMatrix(0, 6) = "Номер договора": .ColWidth(6) = 2000
        .TextMatrix(0, 7) = "Тип": .ColWidth(7) = 2000
        .TextMatrix(0, 8) = "Номер пропуска": .ColWidth(8) = 2000
        .TextMatrix(0, 9) = "Номер телефона": .ColWidth(9) = 2000
        
        
    End With
    
    Set rs = Nothing
    
    Exit Sub
ER: MsgBox Err.Description, vbCritical, "Ошибка выполнения запроса": Exit Sub
End Sub

Option Explicit
 
Private Sub Form_Load()
    Dim i As Long
    
    grid.Rows = picSrc.ScaleHeight
    grid.Cols = picSrc.ScaleWidth
    
    For i = 0 To grid.Cols - 1
        grid.ColWidth(i) = grid.RowHeight(0)
    Next
    
    Call grid_Scroll
End Sub
 
Private Sub grid_Scroll()
    Dim ir As Long, ic As Long
    Dim cr As Long, cc As Long
    
    cr = grid.Row: cc = grid.Col
    ir = grid.TopRow
    
    ' ×òîáû íå ìîðãàëî
    grid.Visible = False
    
    Do While ir < grid.Rows
        
        If Not grid.RowIsVisible(ir) Then Exit Do
        
        ic = grid.LeftCol
        
        Do While ic < grid.Cols
            If Not grid.ColIsVisible(ic) Then Exit Do
            ' ir,ic - âèäèìûå ÿ÷åéêè, áåðè èç ðåêîðäñåòà çàïèñü ïîä ýòèì èíäåêñîì è óñòàíàâëèâàé öâåò - òàì ãäå íóæíî
            grid.Row = ir
            grid.Col = ic
            grid.CellBackColor = picSrc.Point(ic, ir)
            ic = ic + 1
        Loop
        
        ir = ir + 1
        
    Loop
    
    grid.Row = cr: grid.Col = cc
    grid.Visible = True
End Sub