求助 vsflexgrid控件设置backcolor的问题！

想实现通过条件更改表格行背景色，可是报错’无效属性数组索引‘
代码如下，求高手解答

Sub ColorForGrid()
  For i = 1 To Summary_Grid.Rows
      SQL = "select * from [Total] where [M#] like '" & Summary_Grid.Cell(0, i, 0) & "%' and [Fail_Status]=0"
      If rsc.State = adStateOpen Then rsc.Close
      rsc.Open Trim$(SQL), frmLogin.cn, adOpenKeyset, adLockPessimistic
      If rsc.RecordCount > 0 Then
        Summary_Grid.Cell(flexcpBackColor, i, 0, i, Summary_Grid.Cols) = &H8000000F '----这句报错
      End If
  Next i
End Sub 控件颜色 VSflexgrid VB 控件 --------------------编程问答-------------------- 自己顶！！！！！！！！！！！！ --------------------编程问答-------------------- 自己顶顶顶！！！！！！！！！！！！！！！！！！！！！！！ --------------------编程问答-------------------- 逐个单元格设置。

补充：VB ,  基础类