OnOpen form error (1 Viewer)

[danit58]

I have a application splitted in BE and FE; the FE play on few PC with so XP sp2, and the BE on one server within the company.

we use this application many times without errors, but unexpected when I push a button that open a subform

 On Error GoTo Err_dettaglio_Click
  
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "_D01_D_qua"
    
    stLinkCriteria = "[ID_qua]=" & ListaQuadri.Form!ID_Qua
    DoCmd.OpenForm stDocName, , , stLinkCriteria 
    Forms![_d01_d_qua].Caption = "Dettaglio: Dich. n° " & Forms![_d01_d_dic]!N_dic & " del " & Forms![_d01_d_dic]!Anno_imp
    Forms![_d01_d_qua]!cod_fis = Forms![_d01_d_dic]!cod_fis
    Forms![_d01_d_dic].Visible = False
Exit_dettaglio_Click:
    Exit Sub

Err_dettaglio_Click:
    MsgBox Err.Description
    Resume Exit_dettaglio_Click

Access crash, with this system error:
Faulting application msaccess.exe, version 11.0.8166.0, stamp 46437912, faulting module msjtes40.dll, version 4.0.8618.0, stamp 403430ac, debug? 0, fault address 0x00009065.
.

Can anyone help me please?

P.s.
if I add

Doevents

, after

DoCmd.OpenForm stDocName, , , stLinkCriteria

the error doesn't appear


Thanks in advance, Francy