ADODB.Connection & ADODB.Recordset - пользовательский тип определения не определен

Question

Я сталкиваюсь со странной ошибкой при подключении Access DB с использованием VBA. Код VBA выглядит следующим образом:

Sub DBC()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    Set cn = New ADODB.Connection

    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\Bmcstr01\grp\SRV\Allsrv\Resource Planning\Forecasting & MI\MI\backup DM\HH Complaints\Database (TCS Version)\Complaints DB.accdb;"

    Set rs = New ADODB.Recordset

    rs.Open "Access_Log", cn, adOpenKeyset, adLockOptimistic, adCmdTable

    rs.Filter = "ID='335266' AND Work='Test'"
    rs("Login").Value = "02/07/2018"
    rs.Update
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Sub

Ошибка, которую он выдает: «Ошибка компиляции: пользовательский тип не определен» и указывает на первую строку подпрограммы.

Моя таблица присутствует в БД. Он имеет следующую структуру:

ID  Login   Work
335266  04/07/2018  Test
335266  03/07/2018  Test2

Может кто-нибудь помочь мне объяснить причину, по которой он не принимает ADODB и как решить эту проблему?

Answer 1

Перейдите в раздел Инструменты, Справочные материалы VBE, затем найдите и поставьте флажок рядом с «Библиотекой Microsoft ActiveX Data Objects 6.1», чтобы включить библиотеку в ваш проект.