subforms don´t show the values

[checoturco]

hi all,


i´m having a problem with a form that has 9 subforms and this subforms don´t show the values.


i set the source for this subforms with this code when the form opens:

StrsqlPen = "select bri,tot,totdes,totreu from " _
& "TotalBrigRen where flag=" & RsImprForm("idclass") & " and " _
& " zone=1 order by bri;"

Set Rstest1 = New ADODB.Recordset
Rstest1.Open StrsqlPen, cnch3
If Not (Rstest1.BOF And Rstest1.EOF) Then
Me("ConsultBrig_subform_Ren_Pen+PF+Nemp" & i).Form.RecordSource = StrsqlPen
End If

Rstest1.Close
Set Rstest1 = Nothing

i open this form from another form(form A),
Dim stDocNameRen As String
Dim stLinkCriteriaRen As String

stDocNameRen = "ConsultBrigRen"
DoCmd.OpenForm stDocNameRen, , , stLinkCriteriaRen, , , flagexecut


if i put a breakpoint in the Form A and press F8 until the code that opens the form with subforms,everything goes fine,
the form with subforms opens and the subforms show the values.

with a breakpoint in the code this wotks fine,without breakpoint the form with subforms opens and the subforms
don´t show any value....


Anybody has some ideas how to solve this problem??

i already put a form.requery in this form and in the subforms and nothing works

tks all