Function Code_Segment_5_13()
    Dim dbs As Database

    Set dbs = CurrentDb

    ' Add a foreign key from the INCUMBENTS table to the POSITIONS table.
        
    dbs.Execute "ALTER TABLE INCUMBENTS " _
        & "ADD CONSTRAINT Foreign_Key " _
        & "FOREIGN KEY (PCN) " _
        & "REFERENCES POSITIONS (PCN);"

    
End Function
