Доброго времени суток всем!

Хочу в speedshit вставить формулу в цикле а она вроде как и встает но не считает

Вот: Данные беруться из процедуры, а в определенное столбец хочу добавить формулу

sql = "xxxxx '" & DTPicker1.value & "','" & DTPicker2.value & "'"
Set rs = New ADODB.Recordset
rs.Open sql, CN, adOpenForwardOnly, adLockReadOnly
If rs.RecordCount > 0 Then
i = 1
Do While Not rs.EOF
With Me.Spreadsheet1
.Cells(i, 1).value = rs.Fields(4)


.Cells(i, 12).value = rs.Fields(1)


.Cells(i, 9).value = rs.Fields(2)


.Cells(i, 8).value = rs.Fields(3)


.Cells(i, 10).value = rs.Fields(0)


.Cells(i, 13).value = rs.Fields(5)

.Cells(i, 4).value = .Cells(i, 2).value * (1 - .Cells(i, 3).value) // вот так вот добовляю

i = i + 1
End With
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Спасибо.