Pessoa boa tarde, estou tentando trabalhar com o banco de dados do access, até hoje usei o Excel como banco de dados dos meus trabalhos, e estou tendo dificuldades já nas primeiras tentativas, que é conectar o Excel ao Access. Estou usando um Exemplo que peguei na internet e estou adptando ao meu modo, só que não estou conseguindo corrigir um erro que está acontecendo, será que tem algum macete que não peguei ainda, alguem pode dar uma olhado no código abaixo.

Public cn As New ADODB.Connection - > aqui esta dando um erro ( fala que o tipo definido pelo usuario não foi definido )

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public CaminhoArquivo, Provedor As String
Public sql, Tabela As String
Public Indice As String
Public Flag As Boolean
Public BancoAberto As Boolean
Public ChangeTable As Boolean
Public Campo As String
Public lst As ListItem
Public Incompleto As Boolean
Public ms As String
Public AçaoExecutadaPesquisa As Boolean
Public Cancela As Integer
Public Fechar As Boolean



Sub Conectar()
    
    Provedor = "Microsoft.ACE.OLEDB.12.0;DATA SOURCE="
    CaminhoArquivo = ThisWorkbook.Path & "Banco.accdb"
    'sql = "SELECT * FROM " & Tabela
    
    cn.Provider = Provedor & CaminhoArquivo
    cn.Open
    
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.PageSize = 42
    rs.Open sql, cn, adOpenKeyset, adLockOptimistic
   

    
End Sub

Sub Desconectar()
    Set rs = Nothing
    cn.Close
End Sub