Visual Basic - Obtener nombres de tablas de una bd en access

Saludos a tod@s

Tengo un aplicativo que lee una base de datos en access, necesito crear un módulo que me muestre en una ventana los nombres de todas las tablas, de la forma que al seleccionar una, la abra en el último registro.

¿Alguien sabe cómo puedo hacerlo?

Gracias

Si trabajas en DAO:

Dim db as Database
Abres la base de datos.
Dim tdf as TableDef

For each tdf in db.TableDefs
Agrega el nombre al listbox o a otro control usando la propiedad
tdf.Name
Next tdf

Si lo haces en ADO
Debes utilixar el ADOX, para esto agrega la referencia a
Microsoft ADO Ext. 2.5 for Dll and Security.

Dim cn as new ADODB.Connection
Dim ct as new ADOX.Catalog
Dim tb as new ADOX.Table

Abres la conexión y el Catalog
cn.open 'Connectiontring'
Set ct.ActiveConnection = cn

For each tb in ct.Tables
Agrega el nombre al listbox o a otro control usando la propiedad
tb.Name
Next tb

Gracias.

En este foro, nadie sabe dar una respuesta o una ayuda adecuada, tratan a las personas con mucha falta de respeto, lamento pero no quiero insultar a nadie, pero hay que decirlo para ver si esta cuerda de ignorantes se dan cuenta algún dia de no sirven para estar presentes en un foro de ayuda, si una persona no sabe como escribir mama y te lo pregunta, no te preocupes el porque no sabe escribirlo, sus razones habrá tenido para no aprenderlo, SOLO ENSEÑASELO,DILE: Se escribe así: MAMA, escríbelo completo, enséñaselo bien, completo sin que le falte ninguna letra, aprendan a tratar a la gente...

José, te pasaste 2 pueblo, creo que estás fuera de contexto.

Este es un foro abierto para solicitar y brindar ayuda. No sé crítica y menos se ofende o se humilla ha alguien. A la hora de solicitar ayuda las personas lo hacen de un tirón, a la primera... Y si tú para pedir ayuda tienes que consultar un diccionario, un corrector ortográfico ¡Tu tienes un problema!