ник: SRG
зарыта собака вот где: Значение Attributes нужно оценивать в двоичном выражении (обратите внимание на оператор AND в выражении "tdf.Attributes And dbSystemObject"):
Например, если
1 = серый
2 = бурый
4 = малиновый
, то
то объект с attributes=1 - серый, а объект с attributes=1+2+4=7 - серо-буро-малиновый
Вообщем, в подлунном мире все довольно просто :)