Visual Basic - CONSEGUIR NOMBRES TABLAS Y CAMPOS DE UNA BD ACCESS

Quisiera saber como conseguir ,si se puede, los nombres de las tablas de una bd en access desde VB asi como los nombres de los campos de cada tabla. Como si fuera a trabajar con ellas sin poder verla en el acces, a priori.
Asi como cuantas columnas tiene una tabla.
con esto ultimo sacaria los nombres de tabla.
Pero lo q mas me interesa es los nombres de tabla...

Conecto con JET de Microchof! pero si lo sabes con ODBC tambien me vale...Si hace un ejenplo...

Espero vuestra ayuda...
Un saludo.
Gracias

'Esto es un ejemplo válido con ADO. Se supone rst y cnx declarados ADODB.Recordset y ADODB.Conexion y la conexion abierta a la Base de datos Access que quieres explorar. SUERTE

Set rst = cnx.OpenSchema(adSchemaTables)
Do While Not rst.EOF
tipo = rst!TABLE_TYPE
If tipo = "TABLE" Or tipo = "VIEW" Then 'lista tablas y vistas de la BD
msgbox rstEsquema!TABLE_NAME ' & " | " & rstEsquema!TABLE_TYPE
End If
rst.MoveNext
Loop
rst.Close