Data Control VB6?

[R3Z]

Alguien puede decir por que me sale error    este codigo lo tengo en un solo commando cada vez que le doy me sale error

Código (vb) [Seleccionar] Expandir


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



[Cj2009z]

mmmm a la hora de modificar un registro, no debes de agregar el método .addnew sino que simplemente .update, intenta y comentas.