Estando en Excel ¿Cómo importar tabla de Access? ConVBA

¿Cómo puedo importar a Excel desde Access una tabla, con los nombres de los campos?

Con código vba... He conseguido traer los datos pero no consigo traer los cabeceros.

Os muestro el código que he utilizado...

Dim Ruta As String
Ruta = ActiveWorkbook.Path & "\" & ActiveSheet.Range("C5") & ".accdb"
On Error GoTo ErrorAviso
'variable para almacenar la conexion
Dim conexion As Object
'variable para almacenar los datos de la consulta al fichero access
Dim recordset As Object
'variable con la consulta sql
Dim consulta As String
'variable donde guardamos la cadena de conexion
Dim cadenaConexion As String
'contador para escribir resultados en cada fila del excel
Dim contador As Integer
'Iniciamos conexion
Set conexion = CreateObject("ADODB.Connection")
cadenaConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Ruta
consulta = "Select * From [Trabajos Asignados]"
conexion.Open cadenaConexion
Set recordset = conexion.Execute(consulta)
contador = 1
Do Until recordset.EOF = True
Sheets("Datos").Cells(contador + 1, 1) = recordset.fields(0).Value
Sheets("Datos").Cells(contador + 1, 2) = recordset.fields(1).Value
Sheets("Datos").Cells(contador + 1, 3) = recordset.fields(2).Value
Sheets("Datos").Cells(contador + 1, 4) = recordset.fields(3).Value
Sheets("Datos").Cells(contador + 1, 5) = recordset.fields(4).Value
Sheets("Datos").Cells(contador + 1, 6) = recordset.fields(5).Value
Sheets("Datos").Cells(contador + 1, 7) = recordset.fields(6).Value
Sheets("Datos").Cells(contador + 1, 8) = recordset.fields(7).Value
Sheets("Datos").Cells(contador + 1, 9) = recordset.fields(8).Value
Sheets("Datos").Cells(contador + 1, 10) = recordset.fields(9).Value
Sheets("Datos").Cells(contador + 1, 11) = recordset.fields(10).Value

contador = contador + 1
recordset.movenext
Loop
recordset.Close
Set recordset = Nothing
conexion.Close
Set conexion = Nothing

¿A ver como incorporo los cabeceros de registros?