Dim MyIndex As Index
Dim MyField As Field
Dim MyTableDef As TableDef
Dim MyDatabase As Database
Set MyDatabase = OpenDatabase("MYDB.MDB")
Set MyTableDef = MyDatabase.TableDefs(0)
Set MyIndex = MyTableDef.CreateIndex("Another")
Set MyField = MyIndex.CreateField("LastName")
MyIndex.Primary = True
MyIndex.Required = True
MyIndex.Fields.Append MyField
MyTableDef.Indexes.Append MyIndex