The Jet OLEDB:Database Locking Mode property can be set to any of the following 
values:

Page-level Locking                       0 

Row-level Locking                        1 

Note   A database can only be open in one mode at a time. The first user to open 
the database determines the locking mode to be used while the database is open.

Dim cnnAccess As New ADODB.Connection

Dim rst As New ADODB.Recordset
Dim sql As String

cnnAccess.CursorLocation = adUseClient
cnnAccess.Open  "Provider=Microsoft.Jet.OLEDB.4 . 0 ;" & _
            "Data Source=C:\biblio.mdb;" 

cnnAccess.BeginTrans


    sql =  "SELECT [Author] FROM Authors Where 0 = 1 "
    
rst.Open sql, cnnAccess, adOpenKeyset, adLockBatchOptimistic
    
    With rst
        .AddNew
            !Author =  "Name" 

        .UpdateBatch
        ' тут останавливаемся и пытаемся в базе поредактировать все записи.
    End With
    
    rst.Close
    Set rst = Nothing


cnnAccess.CommitTrans

cnnAccess.Close
Set cnnAccess = Nothing

Dim cnnAccess As New ADODB.Connection

Dim rst As New ADODB.Recordset
Dim sql As String

Sub s()


cnnAccess.CursorLocation = adUseClient
cnnAccess.Open  "Provider=Microsoft.Jet.OLEDB.4 . 0 ;" & _
            "Data Source=C:\Program Files\Microsoft Office\Office\Samples\Борей.mdb;" 

cnnAccess.BeginTrans


    sql =  "SELECT [КодКлиента],Название FROM Клиенты Where 0 = 1 "
    
rst.Open sql, cnnAccess, adOpenKeyset, adLockBatchOptimistic
    
    With rst
        .AddNew
            ![КодКлиента] =  "QWsWQ" 
            ![Название] =  "ddddd" 
        .UpdateBatch
        ' тут останавливаемся и пытаемся в базе поредактировать все записи.
    End With
    
    rst.Close
    Set rst = Nothing


cnnAccess.CommitTrans

cnnAccess.Close
Set cnnAccess = Nothing

End Sub

Sub s()


cnnAccess.CursorLocation = adUseClient
cnnAccess.Open  "Provider=Microsoft.Jet.OLEDB.4 . 0 ;" & _
            "Data Source=C:\Program Files\Microsoft Office\Office\Samples\Борей.mdb;" 

cnnAccess.BeginTrans


    sql =  "SELECT [КодКлиента],Название FROM Клиенты Where 0 = 1 "
    
rst.Open sql, cnnAccess, adOpenKeyset, adLockOptimistic
    
    With rst
        .AddNew
            ![КодКлиента] =  "_йУWQ" 
            ![Название] =  "dddййййd" 
        .Update
        ' тут останавливаемся и пытаемся в базе поредактировать все записи.
    End With
    
    rst.Close
    Set rst = Nothing


cnnAccess.CommitTrans

cnnAccess.Close
Set cnnAccess = Nothing

End Sub