Здравствуйте!
Прошу помощи! Пред история: была база написана на Access 2003 файл *.mdb?, решили перейти на новый формат т.к. появилась возможность вложения файлов в БД в новой версии файлов.
В базе имеется код

Set rst = CurrentDb.OpenRecordset(StrSQl)

соответственно это DAO, первим делом захожу в VBA и вижу что Microsoft DAO 3.6 Objects Library не включено выясняется, что новая версия файлов ACCESS не поддерживает DAO.
Как мне заменить наверное на ADO

Private Sub *****_Click()
Dim rst As Recordset
......
Set rst = CurrentDb.OpenRecordset(StrSQl)
    If rst.EOF = False Then
    opora_k = (rst.Fields(2))
       End If
......

https://www.sql.ru/forum/1316241/microsoft-dao-3-6-object-library-i-access-2016