Pessoal,

Tenho a chamada abaixo do userform excel 2010 para acessar o access .mdb e funciona perfeitamente, mas mudaram o excel para 2016 onde eu trabalho e a função não esta mais chamando as informaçãoes do access. Poderiam me auxiliar o que esta dando errado?

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

Sub Conecta()
Set MiConexao = New ADODB.Connection
With MiConexao
' .Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisWorkbook.Path & "Bd.mdb"
.Open
End With
End Sub

Sub Desconecta()
Set Rs = Nothing
Set Ws = Nothing
Set MiConexao = Nothing
End Sub