Erreur automation

clairement je cherche des éclairage sur une errur qui me bloque je suis en effet debutant dans la programmation sous access mais jusque là je me debrouillais bien mais pour le pilotage de outlook via vba access 2007 j'y arrive pas et pourtant je pense mon code est bon;les biblioteques ok et meme que j'ai rinstallé tout office 2007,mais dès que je commence l'instanciation de mes objets outlook j'ai l'erreur qui suit que je ne comprends pas et meme qui revient sur vba word,excell car pour me convaincre j'ai tenté aussi le pilotage depuis word er excell mais du toujours pas:"erreur automation l'operateur demandé nécessite une élevation" je bloque pas mal j'attends vous eclairage!je fournisdonc un bou de code en exemple,code qui bloque


Sub AddContact()

on error resume next 'evidemment sans lui l'erreur m'est affiché

Dim OlApp As New Outlook.Application
Dim OlMapi As NameSpace
Dim OlFolder As MAPIFolder
Dim OlContact As Outlook.ContactItem

Set OlApp = CreateObject("Outlook.Application")
Set OlMapi = Ol_App.GetNamespace("MAPI")
Set OlFolder = Ol_Mapi.GetDefaultFolder(olFolderContacts)
Set OlContact = Ol_App.CreateItem(olContactItem)

With Ol_Contact
.FirstName = "bertil"
.LastName = "jonis"
.FileAs = "plaie"
.Email1Address = "damn@crack.fr"
.Save
End With

Set Ol_Contact = Nothing
Set Ol_Folder = Nothing
Set Ol_Mapi = Nothing
Set Ol_App = Nothing

End Sub