随便据一个简单的例子,用的是ado的结果集,方法很多,用ado的command对象也可以Dim rst As New ADODB.Recordset
Dim myconn As New ADODB.Connection
   myconn = ......         '建立到数据库的连接
   rst.Open "", myconn, adOpenDynamic, adLockOptimistic
   rst.MoveFirst
   Do Until rst.EOF
      rst!field1 = newvalue  '赋值
      rst.MoveNext
   Loop
   rst.Update
   rst.Close