CopyFromRecordset does not copy sorted recordset why?

[kaychamberlain]

Hi,

I have created an adodb.Recordset in my VB app displayed in a datagrid, sorted it into descending order and then I want to export thesorted records into Excel. I have tried using CopyFromRecordset but the data in Excel is displayed unsorted...

the Recordset is very large and majority of time will exceed the Rows available in Excel (65536) but so long as I can get the first 65536 records from the sorted Recordset I don't mind about losing the rest...

how do I do this?
I am not linked to any database...
I just have the recordset object...
copying record by record takes far too long

any ideas would be very much appreciated

thanks in Advance

Kay

[xsouldeath]

Dim rs2 As DAO.Recordset 'used for sorting
Set rs = dbs.OpenRecordset("someTable", dbOpenDynaset)
rs.Sort = "Type ASC" 'where Type is a fieldname part of the "someTable"
Set rs2 = rs.OpenRecordset
excl.ActiveSheet.Cells(2, 1).CopyFromRecordset rs2
'reset the sort since the sort property is still used if you open other recordsets using rs 'variable
rs.sort=0