回存設計[全部資料] - ACCESS資料庫設計VBA

請使用下列方式完成
A 建立一個資料表有合計欄位[屬性為數字]
B 建立一個表單有一個按鈕 [事件程序如下]
Private Sub Command0_Click()
Dim Fx As ADODB.Recordset
Set Fx = New ADODB.Recordset
Fx.Open "成績", CurrentProject.Connection, , adLockOptimistic
Do While Not Fx.EOF
Fx("總分") = Fx("國文") + Fx("英文") + Fx("數學")
Fx.MoveNext
Loop
MsgBox ("計算完成!")
End Sub

程式解說
 Dim fx As ADODB.Recordset //宣告fx為Recordset物件型態
 Set fx = New ADODB.Recordset //產生一個ADO物件實體給fx
Recordset物件的Open方法
 Fx.Open 資料來源，資料連結，指標型態，鎖定方式，選擇
 其中，鎖定方式的參數有4種模式
A. adLockReadOnly：唯讀
B. adLockPessimistic：悲觀性鎖定
C. adLockOptimistic：樂觀性鎖定
D. adLockBatchOptimistic：樂觀性批次鎖定
 當要將資料寫回索引用的資料表→使用adLockOptimistic模式
.移動記錄指標的VBA
fx.MoveFirst 移到第一筆記錄
fx.Last 移到最後一筆記錄
fx.Next 移到下一筆記錄
fx.Previous 移到上一筆記錄
資料表的某欄位值 fx("欄名")
統計欄位值範例
Do While Not fx.EOF
fx("欄位1") = fx("欄位2")+fx("欄位3")
fx.MoveNext
Loop
MsgBox ("OK!!")