Código
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