Hi Michael,

You need to delete the old index and then create a new one with the
same name and add the fields to it. You cannot just add a field to an
existing index. Don't ask me why <g>.

Something like this:

Dim db As Database
Dim MyDef As TableDef
Dim MyIdx As Index
Dim Myfld As Field
Set db = CurrentDb
Set MyDef = db.TableDefs("MyTable")
MyDef.Indexes.Delete ("MyIndex")
Set MyIdx = MyDef.CreateIndex("MyIndex")
Set Myfld = MyIdx.CreateField("MyTextField", dbText, 50)
MyIdx.Fields.Append Myfld
Set Myfld = myIdx.CreateField("longfield", dbLong)
MyIdx.Fields.Append Myfld
MyDef.Indexes.Append MyIdx

 -- Andy