Export data to multiple worksheets from vb6.

i have a vb6 application.

it selects records from a table,MASTER.
fills it in a recordset.
now i need to export the records selected to a excel workbook.

the workbook will have multiple worksheets, that are dynamically determined depending on the recordcount,

the worksheets will be filled up with records, each having 500 rows.

e.g: if there are 5000 records then 10 worksheets will be created and filled up with the records.

i have written a code that fills up all the records in one worksheet and then cuts and pastes records to other sheets.

e.g: if there are 5000 records, the sheet1 is filled up with the 5000 records, then cuts records from 501 to 1000 and pastes in sheet2 and so on.

but this is not what i want.
because, if the number of records is more than 65535 then rest of the record gets lost for obvious reasons, as i am using excel 2000.

any suggestions, codes are appreciated.

thanks.