Run-time-error '429': ActiveX component can't create object

Hi,

Sub main()

    Dim AcroApp As Acrobat.CAcroApp
    Dim theForm As Acrobat.CAcroPDDoc
    Dim jso As Object
    
    Set AcroApp = CreateObject("AcroExch.App")
    Set theForm = CreateObject("AcroExch.PDDoc")
    theForm.Open ("C:\YourPage.pdf")
    

    theForm.Close
     
    AcroApp.Exit
    Set AcroApp = Nothing
    Set theForm = Nothing
     
    MsgBox "Done"
End Sub

by running this soubroutine, line Set AcroApp = CreateObject("AcroExch.App") throws this error:

Run-time-error '429':

ActiveX compoenent can't create object

I have added these references to call Adobe Reader:
Adobe Acrobat 10.0 Type Library
Adobe Acrobat Browser Control Library 1.0

What is wrong?

Thank you very much!

Regards,
Lloyd