Hola, quiero crear una tabla en access

Hola, quiero crear una tabla en access con un sólo campo, que es campo clave. Estoy poniendo el siguiente código:

'Creamos la nueva tabla GRUPOINCIDENCIAS

For Each tdf In dbs.TableDefs If tdf.Name = "grupoincidencias" Then

JustDoIt = False End If Next

'con el campo: colectivo: texto (100)(clave)

If JustDoIt Then Set tdf = dbs.CreateTableDef("grupoincidencias")

AnexarEliminarCampo tdf, "APPEND", "colectivo", dbText, 100 dbs.

'Primero se crea un indice Set Indice = tdf.CreateIndex("colectivo")

'se establece que va a ser el índice primario

Indice.Primary = True

'Se crea un campo que va a ser el que forma el índice

Set CampoIndice = Indice.CreateField("colectivo")

'Se añade el campo al indice Indice.Fields.Append CampoIndice

'Se añade el índice a la tabla tdf.Indexes.Append Indice

'y se añade la tabla dbs.TableDefs.Append tdf

'Y VINCULO la tabla VincularTabla tdf, obtenerNombreBaseDatos

End If

JustDoIt = True 'reiniciamos la variable controladora de actuación

Sin embargo no se crea la tabla cuando la aplicación engancha con ella. Me podéis echar una mano. Estoy perdida. Gracias