Доброе время суток!
Есть такая вот конструкция добавляющая строки в таблицу:

otb = "APPOFSTR" 'Критерий отбора стрпок в таблице импорта
Set db = CurrentDb 'открытие бд
coddestr = ("SELECT * FROM Import WHERE (((Import.Поле1)=""" & otb & """));") 'Запрос на выбор строк РР
Set rs = db.OpenRecordset(coddestr) ' открытие рекортсета на основе запроса
rs.MoveFirst
'добавляем строки в таблицу
With CurrentDb.OpenRecordset("SELECT * FROM СтрокиРР WHERE 1=0")
.AddNew
!КодСтроки = rs.Fields("Поле1")
!НомерРР = ПНомерРР
!КБК = rs.Fields("Поле2")
!КодЦели = rs.Fields("Поле3")
!Сумма = Replace(rs.Fields("Поле4"), ".", ",")
!Примечание = rs.Fields("Поле5")
.Update

End With

Но дело в том, что она добавляет только одну первую строку, но иногда строк может быть больше одной.
Как можно исправить?

http://www.sql.ru/forum/1074937/cikl-v-dobavlenii