获得 Access 数据表名列表

  一个小项目里用到的,由于系统要求精简,故选择了简单的access,以前尝试过获得sql server的所有用户表名,sql server的sysobjects表中,用户表类型使用'U'标志,'S'是系统表

select name from sysobjects where type='U'

  但发现这个无法运用在access上,现在只能南辕北辙般的在代码层上动手脚ado.net,通过下面的手段获得表名

Dim MyConn As OleDbConnection = New OleDbConnection(myspclass.ConnStr)
MyConn.Open()
Dim schemaTable As DataTable = MyConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {NothingNothingNothing"TABLE"})
For i As Integer = 0 To schemaTable.Rows.Count  1
    listbox1.Items.Add(schemaTable.Rows(i).Item(
2).ToString())
Next

  先这样将就着,大家有什么好办法吗?