Having a reference to active sheet (strongm) and recordset (your code) you can copy it with single line of code:
[tt]ActiveSheet.Cells(1,1).CopyFromRecordset RS[/tt]
This code copies only data, if you need headers, fill them first and copy recordset starting in Cells(2,1).
combo