Alguien Sabe Por Que Me Da Error? VB6

[R3Z]

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

Código (vb) [Seleccionar] Expandir


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")