Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FRM_YourFormName" [COLOR="Green"]'The name of the form to be opened[/COLOR]
stLinkCriteria = "[CommmonLinkID]=" & "'" & Me![CommmonLinkID] & "'" [COLOR="Green"]'Replace the item between the square brackets with the name of the filed that is common to the two form on which you can link[/COLOR]
DoCmd.OpenForm stDocName, , , stLinkCriteria