Figured it out - code below for anyone interested. I put this in a forms onload event.
Dim accObject As Access.AccessObject
Dim InsertSQL As String
DoCmd.SetWarnings off
'Fill with Tables
For Each accObject In CurrentData.AllTables
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ Table """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
'If currently opened file is an Access database (mdb), then fill
'with queries.
'Otherwise, if it is an Access project (adp), fill with views,
'stored procedures, database diagrams, and functions.
If CurrentProject.ProjectType = acMDB Then
For Each accObject In CurrentData.AllQueries
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ Query """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
Else
For Each accObject In CurrentData.AllViews
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ View """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
For Each accObject In CurrentData.AllStoredProcedures
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ Procedure """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
For Each accObject In CurrentData.AllDatabaseDiagrams
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ Diagram """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
For Each accObject In CurrentData.AllFunctions
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ Function """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
End If
'Fill list with forms.
For Each accObject In CurrentProject.AllForms
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ Form """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
'Fill list with reports.
For Each accObject In CurrentProject.AllReports
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ Report """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
'Fill list with data access pages.
For Each accObject In CurrentProject.AllDataAccessPages
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ Page """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
'Fill list with macros.
For Each accObject In CurrentProject.AllMacros
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ Macro """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
'Fill list with modules.
For Each accObject In CurrentProject.AllModules
InsertSQL = "INSERT INTO d1 (t, nm) VALUES ("
InsertSQL = InsertSQL & """ Modules """ & ", "
InsertSQL = InsertSQL & "'" & accObject.Name & "'" & "

;"
DoCmd.RunSQL InsertSQL
Next
DoCmd.SetWarnings (Warningson)
Thanks!