Código de conexão do Access com o Excel

[Vitor93]

Bom dia!

 

Pessoal, estou tentando fazer um script para que ele copie umas informações no banco do ACCESS e depois cole no excel, vocês poderiam me auxiliar?

 

Já comecei a fazer o código porém está dando erro

 

 

Option Explicit
Function ConectarBanco_FILIAIS(conexao As ADODB.Connection)

 

Dim Provider As String, dataSource As String, caminho As String
Dim connectionString As String

 

caminho = ThisWorkbook.Path & "\3.0.Accdb;"

 

Provider = "Provider=Microsoft.ACE.OLEDB.12.0;"
dataSource = "Data Source=" & caminho

 

connectionString = Provider & dataSource

 

conexao.Open connectionString

 

End Function

Private Sub lsDesconectar()
    If Not gConexao Is Nothing Then
        gConexao.Close
        Set gConexao = Nothing
    End If
End Sub

Sub ConectaBanco()

 

'Dim dbs As DataBase, rst As Recordset

   
Módulo13.lsConectar

 

 

'CIF = "CIF"
ORI = "BRISAMAR"

 

Set rs = New ADODB.Recordset
 

rs.Open "Select * FROM TB_MRS WHERE Origem'" & ORI & "' ", gConexao, 3, 3

 
Planilha1.Select

 

Planilha1.Range("A2").CopyFromRecordset rs

 

    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If

 

    

 

Módulo13.lsDesconectar

 

 

End Sub