[snip]

Thank you for the response. Here is the trigger. Probably should of posted this with the other code. But it is looking for TRUE:

Option Explicit
Function action

Dim oTag
Dim vTag

Set oTag = HMIRuntime.Tags("Borer2_RecipeReq")
vTag = CStr(oTag.Read)

If vTag = "1" Then
Borer2Recipe() //Function called here
End If

End Function

 If the full function is called twice I would think that it would reopen the record set and load the correct information. As it would call the full function  Borer2Recipe(). The change to the 472 value happens a few seconds after the correct information is retrieved and copied to the PLC. If you look at the function the 472 comes from the first part of the If statement.

Found this:

https://support.industry.siemens.com/cs/us/en/view/61883659

Made the following changes:

If Not (rst.EOF And rst.BOF) Then '****CHANGED THIS*****

     ......

     dData = rst("NumberOfBillets").Value
          if IsNUll(dData) Then
     dData = 0
          End If
     oQty.Value = dData
     oQty.Write
 
    '*****Update Code******
    rst.Close

else
     'WO does not exist in lvl2
      oWOTag.Value = 9
      oWOTag.Write
End If

'Reset Request
oWOReq.Value = 0
oWOReq.Write

'***Updated last two lines***
Set rst = Nothing
Set conn = Nothing

 Same result!!!!