假如有一个表字段ID Num
第100行是由1~99计算出来的。
那么就用:Dim c As ADODB.Connection
Dim r As ADODB.Recordset
Set c = New ADODB.Connection
c.Open "DSN=MS Access Database;DBQ=g:\a.mdb"
Set r = c.Execute("SELECT SUM([FieldB]) FROM [TableName] WHERE NOT [FieldA]='100'")
c.Execute "UPDATE [TableName] SET [FieldB]=" & r.Fields(0) & " WHERE [FieldA]='100'"