Tipo definido pelo usuário não foi definido

Pessoal, boa tarde!

Tentei criar acesso ao access via Excell (VBA), mas não consegui.
Entrei no tópico para a mensagem de erro ocorrida "O tipo definido pelo usuário não foi definido", fiz todas as alterações sugeridas mas ainda não deu certo. Alguém pode me ajudar?
A programação utilizada segue abaixo, bem como o arquivo:

Sub AcessaMDB()
Dim sSQL As String
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection

On Error GoTo trataErro

Set cn = New ADODB.Connection
cn.Call "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\luciori\Desktop\Sistema Acquazero\Sistema Atual.accdb;Persist Security Info=False"
sSQL = "Select * from teste"

Set rs = New ADODB.Recordset
rs.Call sSQL, cn

ActiveWorkbook.Sheets("Plan1").Cells(1, 1).CopyFromRecordset rs

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
MsgBox ("Dados copiados com sucesso.")

Exit Sub

trataErro:
MsgBox ("Erro: " & Err.Description)

End Sub

Olá Ricardo Costa, bem vindo ao fórum.
Este forum é de Access.
O que pretende é exportar os dados de uma tabela do Access para Excel?
Não pode ser efetuado a partir do Access?

Aguardamos, Abraço

Seria o contrário, através do VB do Excell, buscar tabela do Access.

Olá, o mais indicado será num forum de Excel.
No entanto, pode efetuar uma busca aqui no fórum e verificar se tem algo que o ajude.
Veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search
Abraço

Perfeito ahteixeira. Vou repensar meu projeto, talvez seja mais fácil exportar do access para o excell mesmo.

Obrigado.

Olá, aqui no fórum não falta exemplos.
E caso a base de dados seja de outro sistema, pode criar uma nova para exportar (ligada/vinculada) à base de dados que contem os dados.
Em Access chamamos Front End (base de dados do programa) e Back End (base de dados que apenas tem dados).
Qualquer coisa de Access, estamos cá todos para ajudar.  
Abraço