title: DAO.Recordset.RecordCount property not working as expected
body: <p>I am running a query from input from a form.  It is to extract records from 1 table, where the table is joined to 3 others.<br>
  It does successfully extract the record. In this case there is only 1 record and the query does find it. 
  The problem is that every time I run this code, I get one more RecordCount.
  So the first time I run it, the RecordCount is 1 and debug.print gives me the correct information.  The second time I run it, the RecordCount is 2 and debug.print gives me the correct information but twice.  The third time ... 3 and 3, etc. 
  It doesn't matter if I close the form (from which I get my variables) and reload it. The number keeps climbing.  I closed Access and reopened it and the number keeps climbing - it didn't reset to 1 record found. </p>
  
  <p>The query selects records depending on a ProductID where the (qtyordered - qtyproduced > 0) and the records are sorted by priority of the customers.</p>
  
  <pre><code>Dim rs As DAO.Recordset
      Dim db As DAO.Database
  
      Dim findCSQL As String
  
      findCSQL = "SELECT tblWarehouseTransfers.WTRProductID, tblOrderDetails.ODEPriority, tblOrderDetails.ODEQuantityOrdered, " _
                          &amp; " tblOrderDetails.ODEQtyProduced, tblCustomers.CompanyName " _
                  &amp; " FROM  tblCustomers INNER JOIN (tblOrders INNER JOIN (tblWarehouseTransfers INNER JOIN tblOrderDetails " _
                          &amp; " ON tblWarehouseTransfers.WTRProductID = tblOrderDetails.ODEProductFK) " _
                          &amp; "  ON tblOrders.ORDOrderID = tblOrderDetails.ODEOrderID) ON tblCustomers.ID = tblOrders.ORDCustomerID " _
                  &amp; " WHERE (((tblWarehouseTransfers.WTRProductID) = " &amp; Chr$(34) &amp; Me!cboTransferProductID &amp; Chr$(34) &amp; ")) " _
                  &amp; " AND ((tblOrderDetails.ODEQuantityOrdered - tblOrderDetails.ODEQtyProduced)&gt; 0) " _
                  &amp; " ORDER BY tblOrderDetails.ODEPriority "
  
  
      Set rs = db.OpenRecordset(findCSQL)
  
      rs.MoveFirst
      Debug.Print rs.RecordCount
  
      Do While Not rs.EOF
        Debug.Print ("product ID: " &amp; rs!WTRProductID &amp; " qty ordered: " &amp; rs!ODEQuantityOrdered &amp; " customer name:  " &amp; rs!CompanyName)
        rs.MoveNext
      Loop
  
      rs.Close
      Set rs = Nothing
  </code></pre>
  
  <p>How can I empty the recordset and start fresh each time the subroutine is run?</p>