Visual Basic - Error '3264' Ayuda por favor

Hola. Necesito ayuda. Estoy creando por código una base de datos, con su tabla y sus campos. Cuando ejecuto el programa me sale el siguiente error : Error '3264' not field defined- connot append tableDef or Index. Mi código es el siguiente si alguien podría revisarmelo y decirme que es lo que hago mal.Gracias.

Private Sub CmdCrear_Click()
Dim Misesion As Workspace
Dim Mibase As Database
Dim Mitabla As TableDef
Dim Micampo As Field
Dim micampo2 As Field
Dim Indice As Index
Set Misesion = Workspaces(0)
Set Mibase = Misesion.CreateDatabase("C:\Windows\Profiles\Esti\Mis Documentos\Prueba.MDB", dbLangSpanish)
Set Mitabla = Mibase.CreateTableDef("RTU-01")
With Mitabla
Set Indice = .CreateIndex("IdIndice")
Indice.Required = True
Indice.Primary = True
With Indice
.Fields.Append .CreateField("Id", 4)
.Fields.Append .CreateField("nombre", dbText)
End With
.Indexes.Append Indice
.Indexes.Refresh
With Mibase
.TableDefs.Append Mitabla
End With
End With
End Sub

Gracias.Esti.

El problema es que no puedes crear una tabla sin campos, creas los índices pero no creas los campos para crear un índice que incluya el campo nombre, primeramente debes crear dicho campo.

Private Sub CmdCrear_Click()
Dim Misesion As Workspace
Dim Mibase As Database
Dim Mitabla As TableDef
Dim Micampo As Field
Dim micampo2 As Field
Dim Indice As Index
Set Misesion = Workspaces(0)
Set Mibase = Misesion.CreateDatabase("C:\Windows\Profiles\Esti\Mis Documentos\Prueba.MDB", dbLangSpanish)
Set Mitabla = Mibase.CreateTableDef("RTU-01")
With Mitabla

Set Micampo = .CreateField("Id")
With Micampo
.Type = dbInteger
End With
MiTabla.Fields.Append Micampo

Set Micampo = .CreateField("Nombre")
With Micampo
.Type = dbText
.Size = 30
End With
MiTabla.Fields.Append Micampo

Set Indice = .CreateIndex("IdIndice")
Indice.Required = True
Indice.Primary = True
With Indice
.Fields.Append .CreateField("Id", 4)
.Fields.Append .CreateField("nombre", dbText)
End With
.Indexes.Append Indice
.Indexes.Refresh
With Mibase
.TableDefs.Append Mitabla
End With
End With
End Sub

Gracias, ya me dí cuenta mirando todo el rato el código.De todas las maners gracias por contestar ami pregunta.Esti.