i = 1
Do While Not Rs.eof
IF i mod 2 = 0 THEN
'Show information about a color
Else
'Show other
END IF
rs.movenext
i = i 1
loop