Sub AllTables()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for tables in AllTables collection.
For Each obj In dbs.AllTables
' Table name
Msgbox obj.Name
Next obj
End Sub
http://msdn.microsoft.com/en-us/library/...11%29.aspx