Sub CreateRelationX()

　　Dim relNew As Relation

　　With CurrentDb
　　　　Set relNew = .CreateRelation("表2表1ID编号", "表2", "表1", dbRelationDontEnforce +　dbRelationUnique) 'dbRelationUnique)表示一对一
　　　　relNew.Fields.Append relNew.CreateField("ID")
　　　　relNew.Fields!ID.ForeignName = "编号"
　　　　.Relations.Append relNew
　　　　.Close
　　End With

　　End Sub