小编use*_*163的帖子

由于我收到了如此好的和快速的解决方案来解决我的问题，我将再次尝试从您那里获得一些帮助：

我打开了两个记录集。

 Set cmd1.ActiveConnection = cn1
 cmd1.CommandText = "SELECT * FROM mov Where [Date] >= #" & DateA & "#;"
 Set RSold = cmd1.Execute

 Set cmd2.ActiveConnection = cn2
 cmd2.CommandText = "SELECT * FROM mov"
 Set RSnew = cmd2.Execute

（我只想保存文件的选定记录。）

我知道如何逐条记录复制，但是有没有“捷径”可以更快地完成？

谢谢