小吳 VBQA 程式設計討論

假設現在Access(Version:2002)檔案裡有2個資料表(假設這兩個資料表名稱分別為A, B)
則利用以上的程式碼所讀取到的資料表數目會有6+2個
名稱分別為A, B, MSysAccessObjects, MSysAccessXML, MSysACEs, MSysObjects, MSysQueries, MSysRelationships
雖然可以寫一個判斷式來判斷Right(AllTables(i).Name, 4)是否為MSys已決定是不是我所要的資料表
但是這樣的方法似乎很麻煩 不知還有沒有其他的方法可以達到我的目的 麻煩哪位好心人士幫幫我一下...
Dim appAccess as Access.application
Dim FilePath as string
dim NumOfTables as integer
FilePath = frmMainForm.CommonDialog1.FileName
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase (FilePath)
NumOfTables = appAccess.CurrentData.AllTables.Count
appAccess.Quit