Stream Size Limitation

Hi all,
I am new to the ADODB.Stream
I am using following code

lRecordset.Open "Select * from <some table-name>"
'this query return more than 1000 records
dim lstream as new ADODB.stream
'assigning the recordset data to the stream
lrecordset.save lstream
lStream.Position = 0
Dim lRecordset2 As New ADODB.Recordset
lRecordset2.Open lstream
MsgBox lRecordset2.RecordCount

my problem is that query is returning say 1500 records but when i am
again assigning the same stream to another recordset it is copying
only 485 records
that is lstream is saving only 485 records...is there any size limit
on stream...?
how i can do this using stream only....
If u have any solution plz reply back..
Thanks in advance...