Primary key not appending as unique

[gwar2k1]

hey, im working with a relational database and am currently trying to setup the relations. When the interpreter hits the line

Dbase.Relations.Append Rel

it says it hasnt found a unique primary key for the required table. Funny then that all the tables have unique primary keys. Im stumped, any one have a suggestion?

  Rem Sets the primary key
  Set Index = Tbl.CreateIndex("Primary Key")
  Set Fld = Index.CreateField("Order ID")
  Index.Fields.Append Fld
  Set Fld = Index.CreateField("Folder")
  Index.Fields.Append Fld
  Set Fld = Index.CreateField("EAN 8/13")
  Index.Fields.Append Fld
  Index.Primary = True
  Index.Unique = True
  Tbl.Indexes.Append Index

^-- Compound key in table CUSTOMERPRODUCT

Set Index = Tbl.CreateIndex("Primary Key")
  Set Fld = Index.CreateField("EAN 8/13")
  Index.Fields.Append Fld
  Index.Primary = True
  Index.Unique = True
  Tbl.Indexes.Append Index

^-- Single key in table PRODUCT

  Set Rel = Dbase.CreateRelation("1 to Many Product")
    Rel.Table = "CUSTOMERPRODUCT"
    Rel.ForeignTable = "PRODUCT"

  Set Fld = Rel.CreateField("EAN 8/13")
    Fld.ForeignName = "EAN 8/13"
    Rel.Fields.Append Fld
    
  [b]Dbase.Relations.Append Rel[/b]

  Set Rel = Dbase.CreateRelation("1 to Many Customer")
    Rel.Table = "CUSTOMERPRODUCT"
    Rel.ForeignTable = "CUSTOMER"

  Set Fld = Rel.CreateField("Folder")
    Fld.ForeignName = "Folder"
    Rel.Fields.Append Fld
    
  Dbase.Relations.Append Rel

^-- setting up the relations

~*Gwar3k1*~
"To the pressure, everything's just like: an illusion. I'll be losing you before long..."