у меня есть таблица, записей в ней может быть сколько угодно.
необходимо создать столько стилей грида, сколько записей. делаю так:

rcd.open ss,cn,adopenkeyset,adlockoptimistic - открываю рекордсет
i=0
while not rcd.eof
i=i+1
dim (st & i) As New TrueOleDBGrid80.Style
rcd.movenext
wend
тут он ругается, ошибка выдается.

должно получиться так:
необходимо в цикле создать стили, если например 4 записи, то должно быть 4 стиля:
dim st1 As New TrueOleDBGrid80.Style
dim st2 As New TrueOleDBGrid80.Style
dim st3 As New TrueOleDBGrid80.Style
dim st4 As New TrueOleDBGrid80.Style

Да просто пользователю надо выделять строки разными цветами в зависимости от содержания 1 поля, вот из-за этого надо кучу стилей создавать. подскажите, если иожно как-то по другому выделять всю строку например зеленым цветом в зависимости от содержания в поле.

ага, в точности.

черт, почти всё победила, еще проблема. вот сделала по совету:

Do Until rs.EOF
Set NewStyle = TDBGrid1.Styles.Add("st" & i)
'NewStyle.ForeColor = xxxx ... и т.п.
rs.MoveNext
i = i + 1
Loop

но почему в процедуре FetchRowStyle когда я присваиваю rowstyle=st1,
он пишет что st1 empty.

Спасибо всем, вопрос снят