Access - Exportar registros de access a excel con DAO

Hola buena gente, toy deseparated lo que se dice. yo tengo esto:
Quiero que en access me abra una tabla, y coja todos los registros y me los copie a EXCEL. Y por ahora tengo esto, pero necesito algún for, o algo así , que no sé como ponerlo.

Dim ApExcel As Object
Dim db As DAO.Database, rs As DAO.Recordset

Set ApExcel = CreateObject("Excel.Application")

Set db = CurrentDb
Set rs = db.OpenRecordset("ListaAntigüa")

ApExcel.Workbooks.Open "C:\adios.xls"
ApExcel.Visible = True

With ApExcel
'Busca la primera fila vacía
.ActiveSheet.Cells(1, 1).Activate
Do While Not IsEmpty(.ActiveCell)
.ActiveCell.Offset(1, 0).Activate
Loop
'Escribir
.ActiveCell.Formula = rs.Fields(0)
' y ahora me tendría que pasar a la siguiente columna y escribir la 2ª columna de la tabla
.ActiveCell.Formula = rs.Fields(1)
End With
'y así con todas las filas
rs.Close
db.Close
End Sub

¿IDEAS?