La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  724 - LISTAR LAS TABLAS DE UNA BASE DE DATOS ACCESS
Autor:  Gaston Coronato
Deseo que el Visual me muestre los titulos de las tablas que contiene una base de datos.
  Respuesta:  Gabriel García López
Para obtener el nombre de cada tabla, se puede obtener con el siguiente codigo, este es con codigo DAO.
Dim num As Integer
Dim w As Integer
Dim bd As Database

Set bd = OpenDatabase("e:\Biotica JG 02-10-99\biotica.mdb")
num = bd.TableDefs.count
For w = 0 To num - 1
Debug.Print bd.TableDefs(w).Name
Next w

Este manda imprimir, a la ventana de debug(immediate), lo nombre de todas las tablas de mi base de datos a la que me estoy conectado.
  Respuesta:  Emanuel
Es muy fácil. Tenés que utilizar la colección tabledefs del objeto database.
Ejemplo para saber las tablas de la base "empresa"
dim db as database, cant_tablas as integer
set db = opendatabase("empresa")

For cant_tablas = 0 To db.TableDefs.Count - 1
? db.TableDefs(cant_tablas).Name
Next cant_tablas

Emanuel Areias, Buenos Aires