Alguien puede decir por que me sale error este codigo lo tengo en un solo commando cada vez que le doy me sale error
Private Sub Command2_Click()
Data1.Recordset.FindFirst ("Codigo='" & TXTCodigo & "'")
If Data1.Recordset.NoMatch = True Then
Data1.Recordset.AddNew
Data1.Recordset!Codigo = TXTCodigo
Data1.Recordset!Descripcion = TXTDescripcion
Data1.Recordset!Aula = TXTAula
Data1.Recordset.Update
MsgBox "Registro Adicionado"
Else
Data1.Recordset.Edit
MsgBox "Registro Editado"
Data1.Recordset.AddNew
Data1.Recordset!Codigo = TXTCodigo
Data1.Recordset!Descripcion = TXTDescripcion
Data1.Recordset!Aula = TXTAula
Data1.Recordset.Update
mmmm a la hora de modificar un registro, no debes de agregar el método .addnew sino que simplemente .update, intenta y comentas.