Visual Basic - CONSEGUIR NOMBRES DE TABLAS DE UNA BASE DE DATOS

hola todos
Actualmente tengo un programa con una conexion atraves de ADO 2.6 y deseo conseguir los nombres de las tablas que comprenden la base de datos que tengo abierta

Si alguien tiene un ejemplo y me lo puede suministrar se lo agradezco.

Gracias

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

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

Suerte

Estimado amigo:
Visita www.ambsoftware.com y busca por la palabra "tabla".
Encontrarás ejemplos para lo que buscas y más...
Un saludo y suerte