Visual Basic - Listar tablas y campos

Como andan?
Estoy utilizando ADO por codigo para conectarme a una base de datos en Access (en este caso). Quisiera saber como poder averiguar todas las tablas y sus campos (de las que quiera), de una base de datos.
Muchas gracias...

Tienes varias opciones, el método OpenSchema de ADO o ADOX.

Con OpenSchema de ADO:

Dim rst As Recordset

Set rst = TuObjetoConnection.OpenSchema(adSchemaTables)

Con ADOX:

Dim objCatalog As Catalog, objTable As Table, objColumn As Column

Set objCatalog = New Catalog
Set objCatalog.ActiveConnection = TuObjetoConnection

For Each objTable In objCatalog.Tables
Debug.Print objTable.Name
For Each objColumn In objTable.Columns
Debug.Print objTable.Name & vbTab & objColumn.Name
Next
Next

En http://www.able-consulting.com/ADOX_Faq.htm y en http://msdn.microsoft.com/library/en-us/ado270/htm/adoddlo1_1.asp tienes documentación de ADOX.

En http://msdn.microsoft.com/library/en-us/ado270/htm/mdamth03_4.asp tienes documentación de OpenSchema de ADO.