Public Function get_rs(get_conn As ADODB.Connection, strquery As String) As ADODB.Recordset
On Error GoTo My_Err
If Not IsObject(get_conn) Then: Exit Function
If strquery = "" Then: Exit Function
If Not bIsOpen Then
    Exit Function
End If
Set rs = New ADODB.Recordset
rs.Open strquery, get_conn, adOpenDynamic
Set get_rs = rs
Set rs = Nothing
Exit Function
My_Err:
sErrDesc = ""
err_num =  0 
sErrDesc = Err.Description
err_num = Err.Number
err_time = Format(Time, "HH:MM:SS")
err_date = Format(Date, "YYYY-MM-DD")
If get_conn.Errors.Count >  0  Then
    For Each erCur In get_conn.Errors
        sErrDesc = erCur.Description
        err_num = erCur.Number
        OutputErrorMessage sErrDesc, "recordset", err_num, err_date, err_time
    Next erCur
Else
OutputErrorMessage sErrDesc, "recordset", err_num, err_date, err_time
End If
If Not rs Is Nothing Then
    If rs.State = adStateOpen Then
       rs.Close
    End If
End If
Set rs = Nothing

Set get_rs = Nothing

On Error GoTo MY_err
'''''''''''''''''''''
strsql = "CALL get_newid_doc()"
Set cn = get_conn
'начинаем транзакцию
cn.BeginTrans
    Set rs = get_rs(cn, strsql) ' получаем id с таблицы документов (только для нашего соединения)
    naklnum = rs.Fields( 0 ).Value
    CloseRs rs
    strsql = ""
    Set comm = get_comm(cn, "add_to_registrusl")
    Set prm = comm.Parameters
    prm.Append comm.CreateParameter("d_id", adBigInt, adParamInput,  20 , naklnum) ' заносим id получ
  For i = MSFlexGrid3.FixedRows To MSFlexGrid3.Rows -  1 
       ....................
        comm.Execute 
    Next i
cn.CommitTrans
' заканчиваем транзакцию
'''''''''''''''''''''''''''''
MY_err:
 If cn.State <> adStateClosed Then: cn.RollbackTrans ' в случае ошибки делаем откат
    CloseRs rs

set @new_id=(select max(id) from documents);
alter table documents AUTO_INCREMENT=@new_id;