ALTER                  PROCEDURE InvoicesCompositionP
  @OperationID int, @DepartmentID int , @InvoiceTypeID int 
AS 
-- отбирает список книг по накладной

BEGIN
SELECT dbo.InvoicesComposition.*,
BooksCatalog.Authors, BooksCatalog.Volume, BooksCatalog.EditionName, BooksCatalog.HCover, 
BooksCatalog.Cost AS CatPrice, BooksCatalog.NDSTax AS CatNDStax, BooksCatalog.Monopoly, 
BooksCatalog.EAN,
Quantity-Sold-Returned AS Rest, 
CASE WHEN BasePrice >  0  THEN ROUND(PriceNDS/( 1 +BooksCatalog.NDStax)/BasePrice, 4 ) ELSE  0  END AS Discount, 
--IIf([BasePrice]> 0 ,round((Round([InvoicesComposition]![Price]*([InvoicesComposition]![NDSTax]+ 1 ), 2 )/( 1 +[BooksCatalog]![ndstax]))/[BasePrice], 4 ), 0 ) AS Discount, 
ROUND(dbo.InvoicesComposition.Price, 2 )*Round(quantity, 2 ) AS CostM, 
ROUND(ROUND(dbo.InvoicesComposition.BasePrice*dbo.BooksCatalog.NDStax, 2 ) + dbo.InvoicesComposition.BasePrice, 2 )  AS BasePriceNDS,
CASE WHEN PaymentPercent = 1  THEN  0  ELSE  1  END AS IsPercent,
CASE WHEN Quantity-Sold-Returned= 0  THEN  1  ELSE  0  END AS IsClosedFROM 
(
SELECT OperationID, OperationID_Old, DepartmentID, InvoiceTypeID,
InvoicePosition, EditionID

FROM dbo.InvoicesComposition 
WHERE OperationID_Old = @OperationID AND DepartmentID = @DepartmentID AND InvoiceTypeID = @InvoiceTypeID
) InvoiceComposition

INNER JOIN dbo.InvoicesComposition ON 
dbo.InvoicesComposition.OperationID = InvoiceComposition.OperationID 
AND dbo.InvoicesComposition.EditionID = InvoiceComposition.EditionID 

INNER JOIN dbo.BooksCatalog WITH (NOLOCK) ON dbo.BooksCatalog.EditionID = InvoiceComposition.EditionID 


ORDER BY dbo.InvoicesComposition.InvoicePosition, dbo.BooksCatalog.Authors, dbo.BooksCatalog.Volume, dbo.BooksCatalog.EditionName, dbo.BooksCatalog.HCover DESC , dbo.InvoicesComposition.EditionID
END

SELECT dbo.InvoicesComposition.*,

(
SELECT OperationID, OperationID_Old, DepartmentID, InvoiceTypeID,
InvoicePosition, EditionID

FROM dbo.InvoicesComposition 
WHERE OperationID_Old = @OperationID AND DepartmentID = @DepartmentID AND InvoiceTypeID = @InvoiceTypeID
) InvoiceComposition

FROM
dbo.BooksCatalog INNER JOIN dbo.InvoicesComposition ON 
 dbo.BooksCatalog.EditionID = InvoiceComposition.EditionID 

WHERE
  OperationID_Old = @OperationID AND 
  DepartmentID = @DepartmentID AND 
  InvoiceTypeID = @InvoiceTypeID

ORDER BY dbo.InvoicesComposition.InvoicePosition, dbo.BooksCatalog.Authors, dbo.BooksCatalog.Volume, dbo.BooksCatalog.EditionName, dbo.BooksCatalog.HCover DESC , dbo.InvoicesComposition.EditionID

Set conn = New ADODB.Connection
conn.Provider = "MSDataShape"
conn.ConnectionString = "DATA PROVIDER=SQLOLEDB.1;SERVER=MyServer;APP=Microsoft Access;DATABASE=MyBase;Trusted_Connection=Yes"
rst.CursorLocation = adUseClient
conn.Open
'  @OperarionID int, @DepartmentID int, @InvoiceTypeID int
rst.Open ("exec InvoicesCompositionP 49748, 1, 52"), conn, adOpenDynamic, adLockOptimistic,  1 

Debug.Print rst!EditionID & " " & rst!Quantity
rst.MoveNext
Debug.Print rst!EditionID & " " & rst!Quantity
rst!Quantity = rst!Quantity +  5 
rst.Update
Debug.Print rst!EditionID & " " & rst!Quantity