Lage relasjon mellom to tabeller ved bruk av VBA

Sub CreateRelationY()
'Jan Kronsell, September 2000
'erklær DAO variablerne
    Dim db1 As Database
    Dim tabel1 As TableDef
    Dim tabel2 As TableDef
    Dim relNew As Relation
 
'Angiv databasen
    Set db1 = OpenDatabase("db1.mdb")

'Angiv de rigtige tabeller
    With db1
        Set tabel1 = .TableDefs!tabel1
        Set tabel2 = .TableDefs!tabel2

'Opret relationen - relationsnavn i parentes må ikke eksistere     
        Set relNew = .CreateRelation("Tabel1Tabel10", _
            tabel2.Name, tabel1.Name, _
            dbRelationUpdateCascade)
 
'Tilføj relationen og felterne til samlingen af relationer   
        relNew.Fields.Append relNew.CreateField("rnr")
        relNew.Fields!rnr.ForeignName = "nytfelt"
        .Relations.Append relNew

    End With

End Sub

Takker !