Sub exaTables()
Dim dbLibrary As Database
Dim tblLibrary As TableDef
Set dbLibrary = DBEngine.Workspaces(0).Databases(0)
Debug.Print "Tables in LIBRARY"
For Each tblLibrary In dbLibrary.TableDefs
Debug.Print tblLibrary.Name
Next tblLibrary
End Sub