Para crear una relación, tendrás que declarar una variable
objeto «DAO.Relation».

El siguiente ejemplo creará una relación de «uno a varios» entre las tablas
«Clientes» y «Facturas» mediante el campo «IdCliente», común en ambas tablas
de nuestra base de datos. Asimismo, se exigirá la integridad referencial y
se actualizará en cascada los campos relacionados:

    Dim db As Database
    Dim rel As DAO.Relation

    ' Abrimos la base de datos
    Set db = OpenDatabase("C:\Bd1.mdb")

    ' Creamos una relación
    Set rel = db.CreateRelation("ClientesFacturas", _
            "Clientes", "Facturas", _
            dbRelationUpdateCascade)

    ' Creamos el objeto «Field» del objeto «Relation»
    rel.Fields.Append rel.CreateField("IdCliente")

    ' Indicamos el nombre del campo de la tabla externa
    rel.Fields!IdCliente.ForeignName = "IdCliente"

    ' Añadimos la relación a la colección
    db.Relations.Append rel

Para más información, consulta en la ayuda de DAO el método
«CreateRelation».

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)