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