如何使用ADO取得每個Tables,View的名稱(編號：619)

我使用以下程式碼,想要取得每個Table,View的名稱
Dim adoConn As New ADODB.Connection
Dim strConn, strSQL As String
　　Dim cat As New ADOX.Catalog
　　Dim tbl As New Table
　　Dim qef As ADOX.View

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ChangeMan.mdb;Persist Security Info=False"
　　adoConn.Open strConn
　　Set cat.ActiveConnection = adoConn
　　
　　For Each tbl In cat.Tables
　　　　MsgBox tbl.Name
　　Next

但結果會連同系統Table,view都列出,請問如何只取得自建的Table及view