Fallo en código para actualizar stock de productos

Prueba así (te pongo en negrita los cambios):

Private Sub ActualizarStock()
If MsgBox("Confirmar Pedido y Actualizar STOCK?", vbYesNo, "CONFIRMAR VENTA") = vbYes Then

Dim rst As DAO.Recordset

Set rst=Me.DetPedidos_Subformulario.Form.RecordsetClone
    With rst
        .MoveFirst
        Do While Not .EOF
        CurrentDb.Execute ("UPDATE Productos set StockActual=StockIncial-" & !Cantidad.Value & " WHERE IdProducto=" & !IdProducto.Value)
        .MoveNext
        Loop
    End With
    Me.BaseImponible = Me.TPVD / (1.21)
    Me.PreCosto = Me.TPreCompra
    Me.Recalc
Else
    Exit Sub
End If

rst.Close

Set rst=Nothing
End Sub

Y si así no te va, cambia también la línea del currentdb.Execute por esta otra:

CurrentDb.Execute ("UPDATE Productos set StockActual=StockIncial-" & rst("Cantidad") & " WHERE IdProducto=" & rst("IdProducto"))