Visual Basic - Algo sencillo

Hola a todos.

Quiero añadir a un combobox los nombres de las tablas de una base de datos de access que en principio desconozco utilizando la colección tabledefs más o menos de la siguiente manera :

Supongamos BaseDatos la base de datos Coleccióntablas la colección de tablas y Tabla una tabla de la base de datos

Dim BaseDatos as Database
Dim ColeccionTablas as Tabledefs
Dim Tabla as Tabledef
...
Set Colecciontablas=Basedatos.Tabledefs
For each Tabla in ColeccionTablas
Combo1.AddItem(Tabla.name)
Next

Pero no me funciona. Alguien que me pueda echar una mano?

Te indico en tu correo un pequeño código espero te sirva.

QUE ONDA
TE LO VOY A EXPLICAR AQUI OJALA TE AYUDE!!!!

DESPUES QUE DECLARAS LA VARIABLE DE TIPO DTABESE Y LA TIPO RECORDSET... DECLARAS LA DEL SQL DE TIPO STRING

ENTONCES EN EL ACTIVATE DE LA FORMA, O EN EL EVENTO QUE QUIERAS PONES....

DIM X AS INTEGER
SQL=""
SQL="SELECT NOMBRE_CAMPO FROM NOMBRE_DB"
SET RS=DB.RECORDSET(SQL, OPENSNAPSHOT)
IF RS.RECORDCOUNT>0 THEN
X=RS.RECORDCOUNT
FOR X=1 TO X
COMBO1.ADDITEM RS(0)
RS.MOVENEXT
NEXT X

OJALA TE SIRVA DE ALGO Y SUERTE..........