Visual Basic - error en Tranzaccion

gracias por su valioso tiempo le voyu a comentar un problema que tengo.
tengo dos procedimientoos todo el codigo igual menos el insert con tranzaccion

y me marca el siguiente error cuando llega a la linea de l insert, pero en un proocedimiento me lo hace bien y en el otro no

no se puede cear uuna nueva conexcion `por que esta en modo
transaciion manual o distrbuida

este es el codigo que utilizo para los 2 procedimientos

Private Sub proc1()
On Error GoTo AtrapaErr
cn.BeginTrans
cn.execute "insert"
cn.execute "insert"
cn.CommitTrans
Exit Sub
AtrapaErr:
cn.RollbackTrans
MsgBox Err.Description
Err.Clear
end sub

Private Sub proc2()
On Error GoTo AtrapaErr
cn.BeginTrans
cn.execute "insert"
cn.execute "insert"
cn.CommitTrans
Exit Sub
AtrapaErr:
cn.RollbackTrans
MsgBox Err.Description
Err.Clear
end sub