Argh errore mio
AggiornaImmagine non va subito prima dell'End Sub, ma qui:
codice:
Private Sub Comando13_Click()
On Error GoTo Err_Comando13_Click

    DoCmd.GoToRecord , , acNext
    AggiornaImmagine
    
Exit_Comando13_Click:
    Exit Sub

Err_Comando13_Click:
    MsgBox Err.Description
    Resume Exit_Comando13_Click

End Sub