como ver el nombre de un campo Record set

For I = 0 To RS.Fields.Count - 1
Response.Write " Response.Write "style='color: "& color_titulos &"; font-family:"& font_titulos &"; font-size: "& size_titulos &"'>"
Response.Write RS.Fields(I).Name
Response.Write "" & vbCrLf
Next 'I