Try this:
Private Sub addButton_Click()
On Error GoTo Err_addButton_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim SupID
DoCmd.RunCommand acCmdSaveRecord
SupID = Me![SupplierID]
stDocName = "frmProducts"
DoCmd.OpenForm stDocName, , , ...