Бесконечно перебирая набор записей в VBA

Question

У меня есть набор записей, который я перебираю, используя .movenext и все, но он всегда зацикливается!

Dim dbsNu As Database
Dim rsNieuw As DAO.Recordset
Dim rsOld As DAO.Recordset

        Set rsOld = dbsNu.OpenRecordset("SELECT * FROM tblActieElementLink WHERE actieElement = " & Me.actieElementId, dbOpenDynaset)
        Set rsNieuw = dbsNu.OpenRecordset("SELECT * FROM tblActieElementLink", dbOpenDynaset)

        With rsNieuw

            Do While rsOld.EOF = False

                .AddNew
                    !actieElement = rsOld!actieElement
                .Update

                rsOld.MoveNext
            Loop

rsOld.EOF никогда не имеет значения true и продолжает добавлять новые записи.

Answer 1

Я думал, что rsOld был моментальным снимком, но поскольку я продолжал добавлять записи в ту же таблицу через rsNieuw, он застрял в бесконечном цикле.