this function will display list of table from other database, it come handy if you want to make a tool for inventory of all your db

Sub displayTable()
Dim dbs As Database
Dim otable As DAO.TableDef
Dim ItemName As String
Set dbs = OpenDatabase(“Db Name”)
For Each otable In dbs.TableDefs
If UCase(Left(otable.Name, 3)) <> “MSY” Then
ItemName = otable.Name
ItemName = Replace(ItemName, “,”, “–”)
debug.print ItemName
ItemName = “”
End If
Next otable
Set otable = Nothing
Set dbs = Nothing
End Sub