Как получить список таблиц в базе.

'(Не рекомендуется к применению, но работает)
Private Sub LoadTableList1()
Dim i As Long
Dim r As DAO.Recordset
i = 0
'Выводим список всех объектов текущей базы
Set r = CurrentDb.OpenRecordset("SELECT * from MSysObjects order by Flags,name")
While Not r.EOF And i < 200
    Debug.Print r("Name"), r("Type"), r("DateUpdate")
    r.MoveNext
    i = i + 1
Wend
r.Close
End Sub

'2 вариант основан на использовании коллекции TableDefs

Private Sub LoadTableList2()
Dim t As TableDef
'Выводим список таблиц текущей базы
For Each t In CurrentDb.TableDefs
    Debug.Print t.Name, t.LastUpdated
Next t
End Sub