DoCmd.OpenForm stDocName, , , stLinkCriteria, stSerial
 
Private Sub Form_Open(Cancel As Integer)
    If Not IsNull(Me.OpenArgs) Then
        Dim stSerial As String
        stSerial = Me.OpenArgs
        Me.txtSerial = stSerial
    End If
End Sub