Grazie per la collaborazione che mi state dando.
Togliendo on error mi da un errore alla linea 16 che sarebbe

codice:
WHERE tabella.[id]=" & id & "

Modificandolo in WHERE tabella.[id]=" & id & " " o WHERE [id]=" & id Non va lo stesso

WHERE tabella.[id]=" & id
-------------------------^