Fails to navigate to the proper record WITHOUT a MsgBox

[CFW]

I use the below code to move to the selected record in a list box to
that record in another form:

DoCmd.OpenForm "frmWorksheet", acNormal, , , acFormEdit,
acWindowNormal
rst.CursorLocation = adUseClient
rst.Open "qry_frmWorksheet", CurrentProject.Connection,
adOpenKeyset, adLockOptimistic
MsgBox strCremationNumber
rst.Find "[CremationNumber] = " &
str(Nz(strCremationNumber, 0)) ' strCremationNumber is set to
lst.Column(0) - the list box's bound column
If Not rst.EOF Then Forms!frmWorksheet.Bookmark =
rst.Bookmark Else MsgBox "EOF"

Problem is, without the MsgBox popping up before the FIND, it just
opens the second form to the first record. With the MsgBox pop up -
it works! I have had this same problem using other methods to
navigate to the same record on another form! Can someone help? I can
use any method that consistently works but I often need to choose a
record in a list box on one form and have another form open up with
that record as the current record. I am working MOSTLY with .adp
projects. THANKS!!