Dim rel As DAO.Relation
  Dim tblfld As DAO.Field
 
    strInfo = "Creating relation " & txtVersion & " ---> " & txtVersionUpdate
 
    Set rel = m_Database.CreateRelation( _
                "Rel_Version_Update", _
                txtVersion, _
                txtVersionUpdate, _
                dbRelationUpdateCascade Or _
                dbRelationDeleteCascade)
 
    Set tblfld = rel.CreateField("txtVersionId")
    tblfld.ForeignName = "txtVersionId"
    rel.Fields.Append tblfld
    m_Database.Relations.Append rel
    m_Database.Relations.Refresh
    Set rel = Nothing
    Set tblfld = Nothing

Gruß
Dirk

--
?Get it right the first time