Visual Basic - cantidad tablas

Hola. estoy haciendo un formulario agrego un command button y este activa el common dialog para seleccionar una base acces, seleccion la base acces pero quiero saber cuantas tablas tiene, asi como cada nombre de la tabla y que campos tiene cada tabla.

Gracias.

Con este código puedes saber todo lo que comentas en tu duda

Dim BD As Database
Dim Rs As Recordset

Set BD = OpenDatabase("Nombre BD") ' Esta base de datos es en Access

' Muestra todas las tablas de una base de datos
Dim iBuc As Integer
For iBuc = 0 To BD.TableDefs.Count - 1
Debug.Print BD.TableDefs(iBuc).Name
Next iBuc

Set Rs = BD.OpenRecordset("Nombre de la tabla o consulta")
MsgBox "Cantidad de campos: " & Rs.Fields.Count
MsgBox "Cantidad de registros: " & Rs.RecordCount

Suerte y espero haberte ayudado

Te envío un ejemplo a tu correo es con conexion ADO.