RecordCount returns -1

I am trying to get a count of the number of records returned from a LotusScript SQL command. What I am getting is a count of -1. Can anyone help? Here is a snippet of my code:Note that .RecordCount returns -1


Set db2RS = CreateObject("ADODB.Recordset")

SQLQuery = "SELECT * from " & te2000Time & " WHERE (UPDHST<'2')"

Call rtitem2.appendtext("Getting TS Records - " & SQLQuery)

Call rtitem2.addnewline(1,True)	

DB2Connection.CommandTimeout = 0

db2RS.CursorLocation = adUseServer

db2RS.Open SQLQuery,DB2Connection, adOpenDynamic , adLockOptimistic



Dim TotRecords As Integer

TotRecords= db2RS.RecordCount