使用 updatebatch 批更新

Dim cn As New Connection
        Dim rst As New Recordset
        cn.Open str
        cn.CursorLocation = adUseClient
        
        rst.Open "select * from abc ", cn, adOpenStatic, adLockBatchOptimistic
       
       Dim i As Integer
       For i = 0 To 3
        rst.AddNew
        rst.Fields(0).Value = i
        rst.Fields(1).Value = i
        rst.Fields(2).Value = i
          rst.Update
       Next
       rst.UpdateBatch