You should use the link criteria of the OpenForm command
use code like:
Dim stDocName As String
Dim stLinkCriteria As String
'form to open
stDocName = "frmNew"
stLinkCriteria = "[Record#]=" & Me![Record#]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Good Luck.