用代码怎样把属性是隐藏的表显示出来？？？？

源代码网整理以下 如何隐藏/显示某个表？<表>
方法一：最简单而有效的一个方法就是以“usys”开头命名。因为ACCESS认为这个字符串开头的是系统文件，而系统文件一般是不显现的。如果要看到，那么在“工具”－“选项”－“视图”中选中“系统对象”就可以了。记住，不要修改其他不属于你的文件，因为那很危险。


方法二：用ADO编程隐藏表
sub hide_table()
    Dim cnn As New ADODB.Connection
    Dim cat As New ADOX.Catalog

    Set cat.ActiveConnection = CurrentProject.Connection
    Dim tbl As ADOX.Table
    Dim pro As Property
    For Each tbl In cat.Tables
    Debug.Print tbl.name
        For Each pro In tbl.Properties
            Debug.Print pro.name & "=" & pro.value
        Next
        If tbl.name = "需要隐藏的表名" Then tbl.Properties.Item("Jet OLEDB:Table Hidden In Access") = True
    Next
End Sub

同理，你还可以隐藏其他的数据库对象，一样使用 ADO