读取Access系统表内容

1、显示系统表 
工具 - 选项 - 视图 
    选中隐藏对象,系统对象

2、增加用户权限 
工具 - 安全 - 用户与组权限
    选中你要查看的系统表，增加相应的权限

3、代码访问 

1 Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb;")
2 Dim adp As New OleDbDataAdapter("select * from Msysobjects", conn)
3 Dim ds As New DataSet
4 adp.Fill(ds)
5 MsgBox(ds.Tables(0).Rows.Count)
6 
7 如果你有其他的用户名和密码则连接字符串要这样写
8 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb;User ID=admin;Password=;Persist Security Info=False;