Dim db As dao.Database
        db = dbE.OpenDatabase(datenbank)
 
        Dim Rel As dao.Relation
        Rel = db.CreateRelation( _
              Name_der_Beziehung, _
              Tabelle_mit_dem_ID_Feld, _
              Tabelle_auf_die_verwiesen_werden_soll, dbRelationDontEnforce)
        ' für die attributte (dbRelationDontEnforce) gibt es einen hilfe 
        ' eintrag in der msdn
 
        Rel.Fields.Append(Rel.CreateField(Name_des_ID_Feldes))
        Rel.Fields(Name_des_ID_Feldes).ForeignName = _
          Feld_auf_das_verwiesen_werden_soll
 
        db.Relations.Append(Rel)