>>184
Dim str As String
Dim ac As Access.Application
Dim ag As Object

Set ac = New Access.Application
ac.OpenCurrentDatabase "c:\db1.mdb"
For Each ag In ac.CurrentDb.TableDefs
　　str = str & ag.Name & vbNewLine
Next
For Each ag In ac.CurrentProject.AllReports
　　str = str & ag.Name & vbNewLine
Next
For Each ag In ac.CurrentProject.AllModules
　　str = str & ag.Name & vbNewLine
Next
MsgBox str