如何用 ADO 进行切断式操作，如何进行批量更新

'本示例演示切断式 recordset 和批量更新的功能

    Dim rs As New ADODB.Recordset
    Dim conn As New ADODB.Connection
    Dim strConn As String
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & CurrentDb.Name & ";Mode=Share Deny None;"
    conn.ConnectionString = strConn
    conn.Open
    
    
    rs.LockType = adLockBatchOptimistic '注意使用的锁定类型
    rs.CursorType = adOpenStatic        '注意游标类型
    rs.CursorLocati.....................
...........