DECLARE @return_value int
  EXEC    @return_value = [CreateCommand]
 @COMMANDNAME = N'ShipmentCreate',
 @CALLERNAME = N'VRPWEBFull-ADMIN-',
 @OPERATIONUNIQUENAME = N'ShipmentCreate',
 @ARGS = 49095990,
 @PRIORITY = 0,
 @PRIVATETHREAD = 0
 SELECT  'Return Value'= isnull(@return_value,0)

 rsmy.ActiveConnection = cn
 
 rsmy.CursorLocation = adUseClient
 rsmy.CursorType = adOpenStatic
 rsmy.LockType = adLockOptimistic
              
 rsmy.open sql, cn

 msgbox(rsmy.Fields(0).value)