关于excel：ADODB.Connection和ADODB.Recordset-用户定义类型未定义

ADODB.Connection & ADODB.Recordset - User define type not defined

使用VBA连接Access DB时遇到一个奇怪的错误。 VBA代码如下所示：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

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
esource 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

它给出的错误是："编译错误：未定义用户定义类型"，它指向子程序的第一行。

我的表存在于数据库中。其结构如下：

1
2
3

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

谁能为我提供帮助，为什么它不接受ADODB以及如何解决此问题？