não foi possivel encontrar o arquivo 'DE:\Cadastro Cliente\DB Provedor

[Elielton]

NÃO CONSIGO FAZER O EXCEL ABRIR O BANCO DE DADOS DO ACCESS, ALGUÉM PODE MIM AJUDAR...

ESSE É O CÓDIGO PARA EXECUTAR A AÇÃO

 

Public MiConexao As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub Conecta()

    Set MiConexao = New ADODB.Connection
    
        With MiConexao
            .Provider = "Microsoft.ACE.OLEDB.15.0"
            .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\DB_Provedor.accdb"
            .Open
        End With
End Sub

Sub Desconecta()

    Set Rs = Nothing
    Set MiConexao = Nothing
    
End Sub

 

Editado Agosto 4, 2017 por Elielton