Scorrere tabelle di un db

[windcam]

Mi sono imbattutto in un problema che ha abbassato di molto l'autostima che avevo nella mia capacità di sviluppatore Visual basic.

Ho un db e devo scorrere i nomi delle tabelle in esso contenuto.

MI sono impantanato.
Come si fa'?
Pensavo di fare un ciclo del for ma ....non mi funzia.
Una cosa del genere:

Dim tabelladb As DAO.TableDef
Set db = OpenDatabase(Form1.Data1.DatabaseName)

For Each tabelladb In db
Next