ลองใช้ Containers ดูครับ

Sub GetAllFormNames()
Dim dbs As Object, doc As Object
Set dbs = OpenDatabase("c:\northwind.mdb")
With dbs.Containers!Tables
For Each doc In .Documents
Debug.Print doc.Name
Next doc
End With
dbs.Close
Set dbs = Nothing
End Sub

ถ้าจะดูส่วนอื่นๆ ก็ใส่ตรงสีน้ำเงินเป็น Object อื่นๆ ดูครับ เช่น Forms, Reports เป็นต้น
*** Edited by Supap Chaiya *** 6/2/2546 19:38:45

ได้แล้วครับ อ. (สุดยอด) ขอบคุณครับ...