I think I have a good starting point for you. I use the following code to fill a listbox with a list of all reports in my Access database.
Private Sub Form_Load()
Dim accObject As Access.AccessObject
'Fill list with reports.
For Each accObject In CurrentProject.AllReports
Me.listObjects.AddItem accObject.Name
Next
End Sub
I don't think you can use CurrentProject in conjuction with .Tables. I'll keep playing with this one to see if I can come up with something.
I need help generating a query that gets all the tables in my database ending with a given word, then displays the names in a list box. Help!!