Visual Basic - 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?

me tienes que decir si ese codigo lo has hecho en basic o como modulo de acces que tb acepta codigo vb

es un módulo de access. no sé porqué, pero creo que ahora ya funciona con esto:
(la clave al parecer es la última fila)

With objXL
' abrir el libro Excel
.Workbooks.Open App.Path & "\libro1.xls"
' activar la primera hoja del libro (Hoja1)
.Sheets(1).Activate
' desplazarse a la última celda
.Selection.SpecialCells(xlCellTypeLastCell).Select
x = .ActiveCell.Row + 1
y = 1
' copiar todos los registros del recordset a partir de la ultima fila
.Cells(x, y).CopyFromRecordset rs
End With

a eso ya te contestaron en otro foro que pusiste lo mismo. revísalo.

Hola a todos. Por favor quien me pueda ayudar.

Deseo saber como puedo crear un prgrama de impresión de Visual Basic, para excel, ya que he creado un formulario de impresion que pueda imprimir varias paginas.

De abntemano gracias.