Access 2k3 - Visualizzare nomi tabelle

[Flash30005]

Come posso attraverso il codice Vba elencare i nomi delle tabelle contenute in un database?
vorrei elencare le tabelle contenute nel database con un ciclo del tipo

Codice: Seleziona tutto

For Each ...
Nometabella = ???????
msgbox Nometabella
next


e, volendo, anche crearla automaticamente dal Vba?
Nell'help ho trovato il codice Tabledefs ma non riesco ad applicarlo
Grazie

[archimede]

Codice: Seleziona tutto

SELECT Table_Name FROM MSysObjects
WHERE Left(Name,1) <> "~"
    AND Left(Name,4) <> "MSys"
    AND Type In (1, 4, 6)
ORDER BY Name

HTH.

Alessandro