对应单元格变颜色

  With fpSpread1
  rs.Open "select famountall from view_offer where fsort=1 and fbillno='" & fbillno & "' and 物料名称='" & m_BillInterface.GetFieldValue("FBaseProperty") & "' ", strconn, adOpenKeyset, adLockReadOnly
  If .Text = rs!famountall Then
.BackColor = RGB(0, 128, 0)
  End If
  End With

vb6.0的
这样写值都有，就是对应的单元格不变颜色
是哪错了吗，怎么实现