What the colleague (Ranman256) said is very accurate. You can use this code
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmName"
stLinkCriteria = "[ID]=" & Me![ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Note that this section, I think...