dim tmpCellValue

Private Sub TDBGrid1_BeforeUpdate(Cancel As Integer)
    
    tmpCellValue = TDBGrid1.Columns(ColNameZnach).Value   ' Временно сохраняем значение из ячейки
    
    
End Sub

Private Sub TDBGrid1_UnboundColumnFetch(Bookmark As Variant, ByVal Col As Integer, Value As Variant)
    Value = tmpCellValue

End Sub

Const ColNameZnach as String =  2    ' Столбец Значения
Dim val

    With TDBGrid1
        .MoveFirst
        While Not .EOF
        
            val = .Columns(ColNameZnach).Value
            MsgBox val
        
            .MoveNext
        Wend
    End With

    Dim rs_c As ADODB.Recordset   ' Клон
    
    Const ColNameZnach As Integer =  2    ' Имя/позиция столбца с ручным вводом
    Const ColNameId As String = "Potoki_id"
    Const ColNameName As String = "Name"
    
    Const MaxZnach =  200       ' Макс. кол-во значений ручного ввода. Знаю, нехорошо таким образом ограничивать массив, но пока так...
    Dim Znach(MaxZnach) As Double            ' массив значений


Private Sub TDBGrid1_BeforeUpdate(Cancel As Integer)
    
    rs_c.Bookmark = TDBGrid1.Bookmark
    Znach(rs_c.Fields(ColNameId)) = TDBGrid1.Columns(ColNameZnach).Value   'Запоминаем в массиве введенное значение
    
End Sub

Private Sub TDBGrid1_UnboundColumnFetch(Bookmark As Variant, ByVal Col As Integer, Value As Variant)
    
    rs_c.Bookmark = Bookmark    ' Передвинулись в клоне на этот же ряд
   
    Value = Znach(rs_c.Fields(ColNameId))        ' Присвоили ячейке значение из массива
    
End Sub