如何修复VBA中的MS访问Enumfields错误

Question

我刚刚开始学习VBA访问。因此，我使用一些网站的示例“ https://learn.microsoft.com/en-us/office/client-developer/access/access/access-home”。

当代码包含“枚举”时，其执行会生成错误“ sub或函数未定义”。

我无法理解其原因，最重要的是，我不知道如何消除它。

例如：

Sub WhereX() 

    Dim dbs As Database, rst As Recordset 
    Set dbs = OpenDatabase("Northwind.mdb") 
    Set rst = dbs.OpenRecordset("SELECT LastName, " _ 
        & "FirstName FROM Employees " _ 
        & "WHERE LastName = 'King';")        
    rst.MoveLast 

    EnumFields rst, 12 

    dbs.Close 
End Sub