Exportar Access para arquivo padrão do Excel

Prezados, boa tarde

Estou precisando criar um botão que ao clicar o access exporta os dados de uma consulta para um arquivo do excel que tenho com padrão.

Para tanto criei um codigo da seguinte forma

Private Sub bexcel_Click()
Dim Exc As Object
Dim xl As Object
Dim sql As String
Dim rst As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Dim Rs As DAO.Recordset
Dim path As String
Dim l As Integer
Dim c As Variant
Dim i As Integer
Dim id As Integer

Set Rs = CurrentDb.OpenRecordset("csltIDMAI")

'local do arquivo
Set Exc = CreateObject("Excel.Application")
'abre o arquivo
Exc.Workbooks.Open ("D:\Users\i1285232\Documents\IDMAIi\Avaliação Ambiental_S_N_SBs_INFRAERO.xlsx") 'endereço

Rs.MoveFirst

'abre a planilha
Exc.Visible = True

'seleciona a pasta
Set Plan = Exc.Worksheets(1)
'seleciona a Planilha
Exc.Sheets("Ind_S-N").Select

'passando os valores para a planilha entre as celulas B5:AA64
Plan.Range("B5:AA64").Value = Rs(0)

'descarrego a memo
Set Exc = Nothing
Set xl = Nothing
Set Plan = Nothing
Set Rs = Nothing

End Sub

Porém esta dando erro na linha que seleciona a consulta, alguém pode me ajudar?

Abraços

Kleyton