title: openrecordset only showing one result
body: <p>When I use a recordset to read from a table everything works fine and the recordcount function shows me the correct amount, but when I use this simple query or any query I always get 1 as a recordcount.</p>
  
  <p>Here's whats working</p>
  
  <pre><code>Option Compare Database
  Option Explicit
  
  Public Sub LoadQ2()
  
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  
  Set db = CurrentDb
  Set rs = db.OpenRecordset("test")'test is the name of my table which contains 13 rows
  
  With rs
      Debug.Print .RecordCount
     .Close
  End With
  
  
  Set db = Nothing
  Set rs = Nothing
  
  End Sub
  </code></pre>
  
  <p>and here's whats not working</p>
  
  <pre><code>Option Compare Database
  Option Explicit
  
  Public Sub LoadQ2()
  
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Dim strSQL As String
  
  strSQL = "SELECT test.number_id FROM test"
  
  
  Set db = CurrentDb
  Set rs = db.OpenRecordset(strSQL)
  
  With rs
      Debug.Print .RecordCount
     .Close
  End With
  
  
  Set db = Nothing
  Set rs = Nothing
  
  End Sub
  </code></pre>
  
  <p>I should get the same result with both recordcount right?? Also I'd like to see the line I have in the recordset in the debug is it possible to print the content of the recordset in the debug window??</p>