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