Set the cursor & lock type to get the recordcount
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rs.CursorType = ADODB.CursorTypeEnum.adOpenStatic
rs.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic