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

如何隐藏/显示某个表？<表>
方法一：最简单而有效的一个方法就是以“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