Guru do Excel e Power BI

Bom dia !!

Isso aqui funciona no Excel 2007. No Excel 2016 da Erro de Automação.

Dim db As Database
Dim rs As Recordset

On Error GoTo FalhaConexao
Set db = OpenDatabase(ThisWorkbook.Path & "\CadastroERP.xls", False, False, "Excel 8.0")
Set rs = db.OpenRecordset("Select * from [ACESSO$]")

Já troquei o "Excel 8.0" para "Excel 16.0", mas não funcionou.
Estou com a referência a "Microsoft DAO 3.6 Object Library", certinho.
Alguém pode ajudar?

Obrigado.

Tente isso: marque a referencia microsoft office xx.0 access database engine object library e microsoft access xx.0 object library
Caso não de certo, experimente essas alterações no seu código:

Opa...

Funcionou certinho essa parte:

"marque a referencia microsoft office xx.0 access database engine object library e microsoft access xx.0 object library"

Valeu parceiro....muito obrigado.