title: Copy one Recordset to another
body: <p>Since I received so nice and fast solution to my problem, I will try again to get some help from you:</p>
  
  <p>I opened two Recordsets.</p>
  
  <pre><code> Set cmd1.ActiveConnection = cn1
   cmd1.CommandText = "SELECT * FROM mov Where [Date] &gt;= #" &amp; DateA &amp; "#;"
   Set RSold = cmd1.Execute
  
   Set cmd2.ActiveConnection = cn2
   cmd2.CommandText = "SELECT * FROM mov"
   Set RSnew = cmd2.Execute
  </code></pre>
  
  <p>(I want to save only selected records of a file.)</p>
  
  <p>I know how to copy record by record, but is there a 'Short Cut' to do it faster ?</p>
  
  <p>Thanks</p>