Call CreateConnection
    If CN.State = adStateClosed Then Exit Sub
        CMD.CommandText = "Select * From ORDERS where ID=" & OrderID
        With RS
            ' Проверяем, вдруг нет такого заказа и что-то пошло не так
            RSCHK.Open Source:=CMD <============================== Легко открывает
                If RSCHK.EOF Then
                    MsgBox "Заказ с ID " & OrderID & " не найден в таблице заказов!", vbCritical, "Сохранение заказа"
                    GoTo ErrExit
                End If
            RSCHK.Close
        ' Удаляем, если мы уже что-то сохраняли
            CMD.CommandText = "Delete From ORDERS_DATE_PLAN where Order_ID=" & OrderID
                .Open Source:=CMD <============================== Легко удаляет
        ' Вставляем список дат
            CMD.CommandText = "Select * From ORDERS_DATE_PLAN;"
            .Open Source:=CMD
            ' В цикле записываем в базу таблицу
            For iRow = 1 To UBound(ArrDate)
                If ArrDate(iRow, 2) <> "" Then
                    .AddNew
                        !Order_ID = OrderID
                        !DATE_SECTOR = ArrDate(iRow, 1)
                        !DATE_DESCRIPTION = ArrDate(iRow, 2)
                        !PLAN_DATE = Replace(ArrDate(iRow, 3), ",", ".") ' исправление опечаток
                        !PLAN_DATE2 = Replace(ArrDate(iRow, 4), ",", ".") ' исправление опечаток
                    .Update <============================== И добавляет новые 
                End If
            Next iRow
            .Close
            
        ' Вставляем ключевые даты в таблицу заказов
            CMD.CommandText = "Select * From ORDERS where ID=" & OrderID
                .Open Source:=CMD
                    !PLAN_DATE_FIRSTSTAGE = ДатаНачалаПроизводства
                    !PLAN_DATE_PACK = ДатаУпаковки
                .Update <============================== НО НЕ ХОЧЕТ ОБНОВЛЯТЬ
                .Close
        End With