ник: Lukas
Может как то примерно так?
Качество кода и скорость пока не рассматриваем. 
Там где .Fields(3) = 1 можно не обновляться, но я для наглядности сначала обновил в таблице все на 0, а то не видно было, где я писал, а где так и было.
Добавлено: похоже орг упустил
