Всем привет.
Подскажите плиз кто знает, как редактировать созданный RecordSet на основе пары таблиц.
Если делать всё в одном запросе, то выполняется он почему-то минут 5, поэтому приходится извращаться...
MDB

  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

пишет ошибку :

run-time error 3027 Обновление невозможно. База данных или объект доступны только для чтения.

пробовал в параметрах открытия рекордсета ставить adOpenDynamic и другие - не помогает.

https://www.sql.ru/forum/1317526/kak-redaktirovat-sozdannyy-recordset