克隆具有一些附件的记录集

Question

我想将一个记录集复制到另一个记录集。

我找到了这段代码：

Do While Not rs(1).EOF
    ' You can place if condition here
    rs(2).AddNew
    For i = 0 To rs(1).Fields.Count - 1
        rs(2).Fields(rs(1).Fields(i).name) = rs(1).Fields(i).Value
    Next i
    rs(2).update
    rs(1).MoveNext
Loop

它有效，但问题是我的记录集中有一些附件字段，而它们上面有循环块。有人有解决方案吗？