Visual Basic - Ayuda URGENTE con EXCEL

Necesito pasar los datos de una consulta a un archivo de Excel y he estado tratando de esta manera:
Deberia hacerse un recorrido pero solo les pongo este ejemplo porque mi problema es que al hacer alguna asignacion a una celda me marca un error y de ahi no paso.

'Variables
Dim ap As New Excel.Application
Dim rs As New ADODB.Recordset
Dim fila As Long, columna As Long

ap.Workbooks.Add
ap.DisplayAlerts = False
ap.Workbooks(1).Worksheets.Add
ap.Worksheets(1).Select

'Se abre el recordset
rs.Open ' Aqui va mi consulta
'Se inician las variables
fila = 1
columna = 1

'Aqui se realiza el recorrido
ap.Cells(fila, columna) = ' Campo o valor de mi consulta

Justo en este punto me marca un error y no se que hacer !!!
Error: "Aplication-defined or object-defined error"

podrian ayudarme a decirme que me falta ?? o que debo cambiar y como guardar mi archivo ? 1000 gracias de antemano

Prueba esto:
ap.Workbooks(1).Activate
ap.Workbooks(1).Worksheets(1).Activate
ap.cells(1,1).value=3
Si te falla comenta todo lo relativo al recordset para descartar errores en el recordset e inténtalo de nuevo.
s.

El error está en tu acceso a datos, la inserción del dato es correcta.

Un saludo.