Passing variables in an OpenForm Method

[Dalorax]

I can't seem to get the following code to work.
Any help would be appreciated:

Public Function NonConform(strProduct, strBatch As String)

On Error GoTo HandleErr
Dim stDocName As String
Dim stLinkCriteria As String

    stDocName = "frmProductNonConforming"
    stLinkCriteria = "[ProductName]=" & "'" & strProduct & "'"
    stLinkCriteria = stLinkCriteria & "AND [BatchNum]=" & "'" & strBatch & "'"
    DoCmd.OpenForm stDocName, , , (stLinkCriteria)    
HandleErr:
    MsgBox "Error in NonConform Function : " & Err.Description
    Resume Next
End Function

 

[RuralGuy]

Try it without the parens:
DoCmd.OpenForm stDocName, , , stLinkCriteria

Which should work as long as [ProductName] and [BatchNum] are text fields.