Open Access data base in Excel

[neddrag]

This code works in Excel 2013 and Windows 7, but in Excel 2016 and Windows 10 and Excel 2013 and Windows 10 error is received.

Run-time error '429':
ActiveX component can't create object

 

[neddrag]

Code:

Set db = OpenDatabase("d:\SelfProg\test.mdb")
Set rs = db.OpenRecordset("DailyWork", dbOpenTable)

db and rs are declared as:

Public db As DAO.Database
Public rs As DAO.Recordset

Public db As DAO.Database
Public rs As DAO.Recordset