Dim rs As Recordset
  Dim rs2 As Recordset
  Dim q As String
  
  q = ""
  q = q & "SELECT Код, Дата, Код_дилера, База_Опт, "
  q = q & "(select opc.id from order_price_change as opc where (opc.order_code=ord.код) and (opc.note='import')) as opc_id "
  q = q & "FROM [Заказы] as ord "
  q = q & "order by Дата,Код"

  
  Set rs = DBEngine(0)(0).OpenRecordset(q)
  rs.MoveFirst
  Do Until rs.EOF
    rs.Edit
      q = "select [data],amount from order_price_change as opc where (opc.id=" & rs!opc_id & ")"
      Set rs2 = CurrentProject.Connection.Execute(q)
      rs2!data = rs2("data").value
      rs2opc_amount = rs2("amount").value
    rs.Update
    rs.MoveNext
  Loop

  Set Me.Recordset = rs
  rs2.Close
  rs.Close
  Set rs2 = Nothing
  Set rs = Nothing

    rs.Edit

rs2!data = rs2("data").value

rs2opc_amount = rs2("amount").value

SELECT a.Код, a.Дата, a.Код_дилера, a.База_Опт, a.opc_id
FROM (SELECT Код, Дата, Код_дилера, База_Опт,
(select opc.id from order_price_change as opc where (opc.order_code=ord.код) and (opc.note="import") ) as opc_id
  FROM [Заказы] as ord) AS a
ORDER BY a.Дата, a.Код;

SELECT a.Код, a.Дата, a.Код_дилера, a.База_Опт, a.opc_id, order_price_change.data, order_price_change.amount
FROM (SELECT Код, Дата, Код_дилера, База_Опт,
(select opc.id from order_price_change as opc where (opc.order_code=ord.код) and (opc.note="import") ) as opc_id
  FROM [Заказы] as ord) AS a LEFT JOIN order_price_change ON a.opc_id = order_price_change.id
ORDER BY a.Дата, a.Код;

SELECT ord.Код, ord.Дата, ord.Код_дилера, op.База_Опт, opc.id, opc.data, opc.amount
	FROM [Заказы] as ord
		LEFT JOIN order_price_change AS op ON ord.код = op.order_code AND 'import'= op.note
		LEFT JOIN order_price_change AS opc ON ord.opc_id = order_price_change.id
	ORDER BY 2, 1