vba - 克隆包含一些附件的记录集

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

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