RecordCount method returning -1 for a recordset

I'm developing an internal database app using Visual Basic. I have a recordset which has data in it - I know this because I am displaying it in my form and am stepping through different records. I want to get the number of records in the recordset and have attempted to do this by using the .RecordCount method of the recordset. This always returns -1. Any idea why this is? Following is the declaration of my odbc connection and the creation of my recordset:

'Global definition for the database
Global DataOracleCon As New ADODB.Connection

'Define SQL string
strNarrHeaderSQL = "SELECT * FROM AR_NARR_DATA"

'Connect via odbc to the database
Set DataOracleCon = New ADODB.Connection
DataOracleCon.ConnectionString = "DSN=GRANTARC;UID=GRMNPROG;PWD=password"
DataOracleCon.Open

'Create narrative recordsets based upon the user's selection
Set rstNarrHeader = New ADODB.Recordset
rstNarrHeader.CursorType = adOpenDynamic 'set cursor to full forward/backward capability
rstNarrHeader.Open strNarrHeaderSQL, DataOracleCon, adOpenDynamic, adLockReadOnly

tempVar = rstNarrHeader.RecordCount 'This always equals -1

Any help or insights on this would be most appreciated.

Thanks,

Paul

Hi Paul,

First of all, I would like to confirm my understanding of your issue. From
your description, I understand that you always get -1 as the returning
value when checking the RecordSet.RecordCount property. If there is any
misunderstanding, please feel free to let me know.

Based on the code you have provided, we can see that currently you are
using a server side cursor. The RecordCount property returns -1 when ADO
cannot determine the number of records or if the provider or cursor type
does not support RecordCount. As the cursor is on server side, ADO does not
know the exact number of records, so it returns -1. As the cursors are
opened at server side by default, to resolved this, use a client side
cursor by adding the following line BEFORE the RecordSet opens.

rstNarrHeader.CursorLocation = adUseClient

HTH. If anything is unclear, please feel free to reply to the post.

Kevin Yu
=======
"This posting is provided "AS IS" with no warranties, and confers no
rights."