Here is one I found in my Access Bible.
Public Sub ListObjects()
Dim aob as AccessObject
with CurrentData
Debug.Print "Tables"
For Each aob in .AllTables
Debug.Print " " & aob.name
next aob
end with
Not sure if that is what you need, but there is one way.