Visual Basic - Error 91

Buenas chicos como estan? mi consulta es la siguiente tengo una bsae de datos en acces 2000 y el tema es que cuando a partir de un procedimiento en un modulo creo una tabla para agragar a esta base de datos me da el eroor 91 'variable del tipo object o la variable de bloque with no esta establecida

quiero saber si alguien me puede ayudar que pasa y como lo soluciono gracias

Option Explicit
Public Sub creartabla()
'declaro los objetos DAO a utilizar
Dim db As DAO.Database
Dim tbldef As DAO.TableDef
Dim fld As DAO.Field
Dim idx As DAO.Index

' Abro la base de datos:
Set db = OpenDatabase("C:\ejervb\cdteca1.mdb")

' creo la tabla temas
Set tbldef = db.CreateTableDef("Temas")
' defino las columnas de la tabla
' para cada una indico elnombre de la columna
' y el tipo de dato, y luego la agrego a la coleccion fields
Set fld = tbldef.CreateField("coddisco", dbLong)
tbldef.Fields.Append fld

Set fld = tbldef.CreateField("codtema", dbInteger)
tbldef.Fields.Append fld

Set fld = tbldef.CreateField("nombre", dbText, 50)
tbldef.Fields.Append fld

Set fld = tbldef.CreateField("autor", dbText, 50)
tbldef.Fields.Append fld

Set fld = tbldef.CreateField("duracion", dbText, 50)
tbldef.Fields.Append fld

' defino un indice para la clave primaria

' DEFINO LAS DOS COLUMNAS QUE COMPONEN LA CLAVE
'CODDISCO + CODTEMA

Set fld = idx.CreateField("CODDISCO")
idx.Fields.Append fld
Set fld = idx.CreateField("CODTEMA")
idx.Fields.Append fld

'defino otro indice que sriva para:
'buscar temas por nombre
Set idx = tbldef.CreateIndex("idx_nombre_tema")
Set fld = idx.CreateField("nombre")
idx.Fields.Append fld
tbldef.Indexes.Append idx


'incorporo la tabla nueva en la coleccio
' de tablas de base de la datos
db.TableDefs.Append tbldef





End Sub