ник: akkorn
Попытайтесь удаленно (из другой базы) подключиться к битой и попрыгать по таблицам.
Что-то типа
Dim DbE As DBEngine, Dbs As Database
Set DbE = New DBEngine
Set Dbs = DbE.OpenDatabase("c:\1.mdb", False, False, ";pwd=")
Dim NameAllTables As TableDef, i As String
For Each NameAllTables In Dbs.TableDefs
i = i & NameAllTables.Name & vbCrLf
Next
'далее с этой i делаем что хотим, там все названия таблиц.. (в т.ч. служебных)
MsgBox i
'ну и закрываемся
Dbs.Close
Set Dbs = Nothing
Set DbE = Nothing
Удачи :)