Function EXEC(cn_exec As ADODB.Connection, sql As String) As Boolean
On Error GoTo 1
CN.Errors.Clear
cn_exec.BeginTrans
cn_exec.Execute sql
cn_exec.CommitTrans
If CN.Errors.Count > 0 Then
EXEC = False
Else
EXEC = True
End If
Exit Function

1: EXEC = False
cn_exec.RollbackTrans
msg_err Err
End Function

Так вот функция которая выполняет скл запрос
Скажите пожалусита что здесь можно доделать что бы он как можно по максимму выполнял свою работу
Или подскажите в какой ветки искать где бы он чаще всего тормазил ?