Hola amigos

Toda la estructura de la base de datos la puedes encontrar en la coleccion
TableDefs

Prueba con:


'objetos dao para identificar db
Public Db As Database
Public Td As TableDef
Public Ix As Index

For Each Td In Db.TableDefs
  If Td.Attributes = 0 Then 'las tablas con atributo no cero son del sistema
    nombre de la tabla: Td.Name
    numero campos de la tabla: Td.Fields.Count
    nombre del campo: Td.Fields(x).Name'donde x=numero de campo empezando desde 0
    tipo del campo: Td.Fields(x).Type
    tamaņo del campo: Td.Fields(x).Size'donde x=numero de campo empezando desde 0
    Numero de indices: Td.Indexes.Count

    For Each Ix In Td.Indexes
      nombre del indice: Ix.Name
      campos del indice: Ix.Fields
      numero campos del indice: Ix.Fields.Count
      Clave Unica: ix.Unique
    Next 'For Each Ix In Td.Indexes
Next 'For Each Td In Db.TableDefs

Espero haberte sido de ayuda

Un saludo

++++++++++++++++++++++++++++++++++++
Pablo Leyva (MailTo:pleyva@ssa.siemens.es)
(Madrid/Espaņa)
http://www.siemens.es
++++++++++++++++++++++++++++++++++++