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