Access - Campo autoincremental

Dim tmpIndex as New Index

Dim db as Database

Const DBName$ = "youre_database_name"

Const Tb$  = "youre_table_name_you_want_to_index"

Const tmpFieldName$ = "the_field_on_which_you_want_the_index"

Set db = OpenDatabase(DBName)

tmpIndex.Name = "testing"

tmpIndex.Fields = tmpFieldName

tmpIndex.Unique = True

db.TableDefs(Tb$).Indexes.Append tmpIndex

db.Close