title: ADODB Recordset.RecordCount giving incorrect answer
body: <p>I have an issue with my Recordset returning -1 as the RecordCount when in fact there are 1164 records.</p>
  
  <p>I have checked my query which is fine. Even though it tells me there are -1 records the <code>CopyFromRecordset</code> method still works and pastes the correct results. Never had an issue before using the <code>rs.RecordCount</code>?</p>
  
  <pre><code>Dim strSQL As String
  Dim rs As New ADODB.Recordset
  
  If cust = "JPM" Then
      port = "RP L99"
  Else
      port = "RP V10"
  End If
  
  strSQL = "my select query"
  
  rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
  rs.MoveFirst
  GetCompanies = rs.RecordCount
  If GetCompanies &gt; 0 Then
     wsLive.Range("A" &amp; ROWCOMPANYSTART).CopyFromRecordset rs
     wsLive.Range("C" &amp; ROWCOMPANYSTART &amp; ":C" &amp; GetCompanies + ROWCOMPANYSTART).NumberFormat = "0.00%"
  End If
  CloseRecordset rs
  
  End Function
  </code></pre>