Tengo Un Base de datos con control data

hize el index en access 2010 y lo formatie a 2000

no se porque me sale  error si le puse el index A Codigo

Data1.Recordset.Index = "COD"
Data1.Recordset.Seek "=", COD
If Data1.Recordset.NoMatch = True Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("Codigo") = txtcodigo
Data1.Recordset.Fields("Descripción") = txtdescripcion
Data1.Recordset.Fields("Aula") = txtaula
Data1.Recordset.Update
MsgBox ("Registro Agregado")
Call Limpiar
txtcodigo.SetFocus
Else
MsgBox ("Registro Exsitente")