Vou executar o codigo para fazer  a conexão com o banco de dados e da a seguinte mensagem

Não foi possível encontrar um ISAM instalável.

O código é esse abaixo:

Dim conexao As ADODB.Connection
Dim provider As String, dataSource As String
Dim connectionString As String
Dim caminho As String

Set conexao = New ADODB.Connection
caminho = ThisWorkbook.Path & "\DatabaseSistemav1.accdb;"
provider = "Provider=Microsoft.ACE.OLEDB.12.0;"
dataSource = "DataSource=" & caminho
connectionString = provider & dataSource

conexao.Open connectionString