Excel - Como grabo titulos en excel

Por medio de un programa en Access lleno un libro de excel calculando que cuando la información no quepa en una sola hoja calcula cuantas hojas necesita las crea y graba la información en cada hoja, hasta aquí todo bién y obtengo mi libro de excel lleno con mis más de 100 mil registros.
Lo que quiero hacer es que al llenar las hojas también me incluya los encabezados de cada columna que son los nombres de los campos de la tablas access, el código que utilizo para llenar las hojas es el siguiente:

- - - - aqui va mi consulta - - - -
- - - - - - - - - - - - - - - - - - - - - - - --
(luego va este código)
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
If Not (rst.EOF And rst.BOF) Then
'pego los datos en la hoja
xls.Worksheets("Hoja" & i + 1).Range("A1").CopyFromRecordset rst
End If
Next i

¿alguiém me podria decir como incluyo los encabezados utilizando el xls.Worksheets?

Un favor no me digan que me equivoque de foro y que vaya al de Access.
gracias.

Algo que se me ocurre, asi rapido nomas:

For x = 1 to rst.Fields.Count
Cells(1,x) = rs.Fields(x).Name
Next x

Abraham

fantástica solución y sencilla. GRACIAS