使用IClassBreakRender对图层进行分级设色，请问如何设置颜色为对象赋给simbol?

<P>我从数据库中将每一等级的颜色读出来，请问如何给IClassBreakRender 的对象pRender.symbol.代码如下：</P>
<P>Dim pSimpleFillSym As ISimpleFillSymbol<br>Dim pColor As IColor</P>
<P>Dim pGeoLayer As IGeoFeatureLayer<br>Dim pFLayer As IFeatureLayer</P>
<P>Set pRender = New ClassBreaksRenderer<br>pRender.Field = "LandClass"                              <br>pRender.breakCount =8</P>
<P>For i = 0 to  7<br><FONT color=#ff0000>  Set pSimpleFillSym = New SimpleFillSymbol      <FONT color=#000000>红</FONT><FONT color=#000000>色的代码我觉得不对，可是我不知道错在那里，我想构造一个颜色的对象，但总是不对，请问该如何构造。</FONT><br>  Set pColor = New RgbColor<br>  pColor.RGB = rec.Fields("Color").Value<br>  pSimpleFillSym.Color = pColor<br>  pRender.Symbol(i) = pSimpleFillSym</FONT></P>
<P><br>  pRender.Label(i) = rec.Fields("Name").Value<br>  rec.MoveNext<br>Next i<br>rec.Close<br>Set rec = Nothing</P>
<P>Set pGeoLayer.Renderer = pRender</P><br><br><br>

<P>那调试后，具体说是什么错误呢</P>