ник: ovr
Если я правильно понял задачу то тебе надо:
открыть Recordset (rs1)
Инструкциуей Select делаешь выборку из нужной таблицы
а дальше
Do While Not rs1.EOF
..код что тебе надо изменить
rs1.MoveNext ' В итоге в цикле переберешь весь набор записей
Loop