Dim NewBD As Database Dim NewTable As TableDef Dim NewIndex As Index 'Création de la base de données Set NewBD = CreateDatabase(Répertoire & NomBD, dbLangGeneral) 'Création des tables utilisateurs Set NewTable = NewBD.CreateTableDef("Commentaires") 'Création du(des) index Set NewIndex = NewTable.CreateIndex("PrimaryKey") With NewIndex .Fields = "+fichier;+database_index" .Unique = True .Primary = True End With NewTable.Indexes.Append NewIndex