While not oRecordSet.eof iCounter = iCounter +1 If iCounter Mod 2 = 0 then sClassName = "Farbig" Else sClassName = Weiss" End If ... oRecordset.MoveNext Wend Oder ähnlich