Как ускорить запись в БД?

Sub session()
    Dim N 'количество разбиений
    Dim K 'количество записей в большой таблице
    Dim tblname 'Имя аксовской большой таблицы
    Dim n1, n2, nmax, nn, s, sw, i
    Dim db As DAO.Database
    Dim t1, t2
    
    Set db = CurrentDb
    tblname = "BigTabl" 'имя таблицы в Access. Напишите истинное имя
    
    'Если нет счетчика добавляем.
    'Если в аксовской таблице уже есть счетчик, закомментируйте следующие 2 строки
    s = "alter table [" & tblname & "] add column id counter "
    db.Execute s
    
    'Находим максимальный и минимальный номера счетчика
    With db.OpenRecordset("select * from [" & tblname & "] order by id")
        n1 = .Fields("id")
        .MoveLast:
        nmax = .Fields("id")
    End With
    
    N = 10 'Можно задать любое другое количество сессий записи
 
    nn = nmax \ N
    n2 = K + nn
    t1 = VBA.Timer
    For i = 1 To N
        'Строка запроса на вставку в Sybase
        s = "insert into (...) ... from BigTabl ... "
        
        'Фильтр на количество записей в сессию
        sw = "where id between " & n1 & " and " & n2
        db.Execute s & vbCrLf & sw
        n1 = n2 + 1
        n2 = n1 + nn
        t2 = VBA.Timer
        
        'Напечатать начальный и конечный номера id в сессии и время вставки
        Debug.Print n1, n2, t2 - t1
        t1 = t2
    Next
End Sub