EnumTableDB

'L'esempio ipotizza il caricamento in una listbox:

Dim Db As Database
Dim Td As TableDef
Set Db = DbEngine.Opendatabase("MyDb.mdb")
For Each Td in Db.TableDefs
If (Td.Attributes And dbSystemObject) = 0 Then
List1.Additem Td.Name
End If
Next Td
Db.Close
Set Td = Nothing
Set Db = Nothing
'L'istruzione If interna al ciclo For Each, permette di

'escludere le tabelle di sistema.