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