小陈网友过奖了，折煞我也。毛著到是认真读过的，但万万不可这么比。我说的再好也不如VBA的帮助好。VBA帮助既有解释还有示例，非常全面。以下引自VBA帮助，其实你也可以养成遇到问题先查帮助的习惯，可能可以更便捷地解决你的问题。

Connection 对象

表示到数据源的打开的连接。

说明

Connection 对象表示数据源的唯一会话。在使用客户端/服务器数据库系统的情况下，该对象可以等价于到服务器的实际网络连接。

Catalog 对象

包含描述数据源的模式目录的集合（Tables、Views、Users、Groups 和 Procedures）。

说明

可以通过添加或删除对象，或通过修改现有对象来修改 Catalog 对象。有些提供者可能不支持所有 Catalog 对象，或者只支持查看模式信息。

使用 Catalog 对象的属性和方法，可以：

• 通过将 ActiveConnection 属性设置为 ADO Connection 对象或有效的连接字符串来打开目录。
• 使用 Create 方法创建新的目录。
• 使用 GetObjectOwner 和 SetObjectOwner 方法确定 Catalog 中的对象的所有者。

具体到你的例子就是说：

Dim cnn As New ADODB.Connection     '定义cnn为一个连接
Dim cat As New ADOX.Catalog             '定义cat为一个对象目录集

Set cat.ActiveConnection = CurrentProject.Connection       '设置cat的当前连接为当前数据库项目（将cat实例化）
Dim tbl As ADOX.Table                                                   '定义tbl为一个ADOX表对象
Dim pro As Property                                                      '定义pro为一个属性对象
For Each tbl In cat.Tables                                               '循环枚举每一个cat的表对象，并实例化给tbl
Debug.Print tbl.name                                                     '打印当前tbl所代表的表的名称
For Each pro In tbl.Properties                                          '循环枚举每一个tbl的属性，并实例化给pro
Debug.Print pro.name & "=" & pro.Value                          '打印当前pro属性的名称及属性值
Next                                                                           '结束属性枚举循环
If tbl.name = "员工表" Then tbl.Properties.Item("Jet OLEDB:Table Hidden In Access") = True   '如果表名称为“员工表”，则设置表的属性项（隐藏表）为真。

                                                                                                                                    '即隐藏名称为“员工表”的表
Next                                                                           '结束表枚举循环