I guess I messed up somewhere. Here is the code i put in.
Private Sub Command75_Click()
'DoCmd.OpenForm "EditBom3", , , "[Product Number] = '" & Me.Product_Number & "'"
Dim rs As Object
Dim StringBookmark As String
'set variable to current record
StringBookmark = Me.Product_Number
'open...