Visual Basic - Recordset a Excel

Como se copia un recordset a excel.

Dim Excel as variant
Dim Lin as integer
Dim Col as integer
Lin=1
Col=1
Set Excel = CreateObject(\"Excel.Application\")
Excel.Visible = True
Excel.workbooks.Add

Excel.cells(Lin, Col).formula = \"\" & RecordSet.Muestra

Si vas con esas mejor te recomiendo esto LEPW