Visual Basic - acces2000 y sus indices

Como se puede desde mi codigo de visual basic, crear o generar los indices de una
tabla de access.2000

algo asi.

open tabal1
if indiceprimario no existe
crearlo
endif

if indicesecundario1 no existe
crearlo
endif

if indicesecundario2 no existe
crearlo
endif

Aca te doy el código para que lo pegues en un formulario nuevo, y agregale dos botones llamados cmdCrearIndice, y cmdBorrarIndice, después cambia los nombres de base de datos, tabla, campo, e indice por los tuyos, y probalo que funciona, sobre las rutinas if, para ver si el indice existe, fijate vos como lo haces, podes recorrer la coleccion Indexes para ver si existe por ejemplo....
El código es:

Dim dbs As Database
Dim Indice As Index
Dim Tabla As TableDef

Private Sub cmdBorrarIndice_Click()
Tabla.Indexes.Delete "Nombre Del Indice"
End Sub

Private Sub cmdCrearIndice_Click()
Indice.Fields.Append Indice.CreateField("Nombre del Campo", dbText, 1) 'Nombre del campo al que le aplicaras el indice '*
Tabla.Indexes.Append Indice
End Sub

Private Sub Form_Load()
Set dbs = DBEngine.OpenDatabase("C:\Windows\Escritorio\Nombre de tu Base.mdb")
Set Tabla = dbs.TableDefs("Mi Tabla")
Set Indice = Tabla.CreateIndex("Nombre del Indice")
End Sub