Dim ......,變數A, ....
RS.Open "SELECT TOP 1 ...............,[欄位A]
.....
變數A = RS (6)
.....
先宣告變數

變數A = FuntionA (某變數, 某變數, 某變數, 變數A)
這變數由這Funtion計算

Conn.Execute "UPDATE TOP (1) [資料表] SET ....... [欄位A]=" & minimum(變數A,999999999) & " ....
寫入這欄位

Function FuntionA (變數1, 變數2, 變數3, 變數4)
.....
.....(計算很長 先略過)
End Function

原先程式已離職了公司解散.... 是委外廠商的 ~慘~
我現在的欄位A會變成0 某些 並非全部 這是我找到可能異常的地方
我有將資料庫直接KEY數值 最後還是歸0 更確定經過計算變0
後面接手實在不清楚原先寫程式的意思
不曉得這樣資訊夠不夠幫我研判問題所在??

^^. 看不太懂 有詳細資訊嗎？