Sub Transaction_Execute(Doc As Document)

   Connection.Provider="Microsoft.Jet.OLEDB.4.0"

   wConnect = "Chemin de la mase Access\Base Acces.mdb"

   Connection.Open wConnect

 

End Sub