VBA para recorrer tablas en Access

[rafapaskual]

Hola, te mando un ejemplo de como pintar el nombre de las tablas en VB, supongo que lo que quieres hacer sera algo parecido.
----------
Private Sub Form_Load()
Dim conexion As New ADODB.Connection
Dim tablas As ADODB.Recordset
Dim campo As ADODB.Field
'he usado un adoDataControl para crear la cadena de conexion
'se puede crear la cadena como mejor te guste
conexion = Adodc1.ConnectionString
'abrimos la conexion
conexion.Open
'esto es solo para que funcion el print
Form1.AutoRedraw = True
'abrimos el esquema (esta funcion tiene otros parametros que permiten
'restricciones, pero no me he parado a mirar como van, hay informacion en la ayuda)
Set tablas = conexion.OpenSchema(adSchemaTables)
'recorremos los esquemas de las tablas y pintamos su nombre
While Not tablas.EOF
Print tablas.Fields("TABLE_NAME").Value
tablas.MoveNext
Wend
conexion.Close
'limpiamos los objetos
set conexion=Nothing
set rs=Nothing
------
End Sub

Espero que te sirva, saludos