Exportar datos específicos de Access a Excel

Espero que me puedas ayudar con este apuro, resulta que estoy haciendo una rutina en la cual trato de consultar un numero de cuenta de usuario de una planta telefónica, y necesito que al ingresar el código del usuario me de como resultado la exportación de todas las llamadas de ese usuario a una hoja de excel, pero hasta el momento solo he logrado que me tire nada más un solo registro con todos sus campos.
El código lo llevo así hasta el momento
Private Sub Command1_Click()
' ABRIR EXCEL
Set application = CreateObject("excel.application")
application.Visible = True
application.workbooks.Add
'Lectura de la base de datos tabla Detalle
sSql = ""
sSql = " SELECT Extension, Codigo_de_Cuenta, Fecha, Hora, Duracion, Segundos, Segundos, Minutos_Redondeado, Numero, Zona, Tipo FROM Detalle01"
Set rsProvee = Cn.OpenResultset(sSql, 1, 3)
'anota en excel
application.cells(1, 2) = "Extension"
application.cells(1, 3) = "Codigo"
application.cells(1, 4) = "Fecha"
application.cells(1, 5) = "Hora"
application.cells(1, 6) = "Duracion"
application.cells(1, 7) = "Segundos"
application.cells(1, 8) = "Minutos"
application.cells(1, 9) = "Número"
application.cells(1, 10) = "Empresa"
application.cells(1, 11) = "Tipo"
'***AQUI DEBERIA LLENAR TODAS LAS CASILLAS CON LAS DIFERENTES LLAMADAS REALIZADAS
'TOMANDO EN CUENTA QUE "a" ES EL NUMERO DE REGISTROS DE MI TABLA
a = 2
application.cells(a, 2) = rsProvee!Extension
application.cells(a, 3) = rsProvee!Codigo_de_Cuenta
application.cells(a, 4) = rsProvee!Fecha
application.cells(a, 5) = rsProvee!Hora
application.cells(a, 6) = rsProvee!Duracion
application.cells(a, 7) = rsProvee!Segundos
application.cells(a, 8) = rsProvee!Minutos_Redondeado
application.cells(a, 9) = rsProvee!Numero
application.cells(a, 10) = rsProvee!Zona
application.cells(a, 10) = rsProvee!Tipo
End Sub
Private Sub Form_Load()
'Conexion a la Base de Datos
sDSN = "conexion"
sDataBaseName$ = "diario-200608071313"
Set Env = rdoEngine.rdoEnvironments(0)
sConexion$ = "DSN=" & sDSN & ";" & "UID=admin" & ";"
sConexion$ = sConexion & "PWD=marlon" & sPWD & ";"
sConexion$ = sConexion & "Database=" & sDataBaseName
Set Cn = Env.OpenConnection("", rdDriverNoPrompt, 0, sConexion)
conecta:
If Err.Number <> 0 Then
MsgBox Err.Description
Unload Me
End If
End Sub
Gracias de antemano