Set NuevaTabla = AbreBase.CreateTableDef("Musica")
'IdAnulado
Set Fld = NuevaTabla.CreateField("IdAnulado", CLng(dbLong))
Fld.Attributes = Fld.Attributes Or dbAutoIncrField
NuevaTabla.Fields.Append Fld
Set Fld = Nothing
'IdCD
Set Fld = NuevaTabla.CreateField("IdCD", CLng(dbLong))
Fld.DefaultValue = 0
'Fld.AllowZeroLength = True
NuevaTabla.Fields.Append Fld
Set Fld = Nothing