Ho cercato di ricostruire con questo codice quello che fanno le due routine..
ps quando dicevo " che esce fuori dalla routine senza che nessuno glielo dicesse utilizzando la
gestione degli errori che sta nella soubritine A." intendevo non che usciva dalla gestione degli errori di b ma proprio dalla soubrotine b ..Grazie ciao Luca

Private Sub A()
On Error Resume Next

call b
call c
End Sub

Private Sub b()
On Error GoTo errore1
qua: rs.addnew
Rs.Fields("OPZIONE_PLUS").Value= 1
rs.update
rs.addnew
Rs.Fields("OPZIONE_PLUS").Value = 2
rs.update

Exit Sub
errore1:
Select Case Err.Number
Case 3022:
GoTo qua
Case 3078:Resume qua
Case Else:
Resume Next
End Select
End Sub