Getting ActiveX error when creating an object

I have an assignment to test .pdf forms for an application. As a start I am trying to open a .pdf file with the following code

___________________________________
Option Explicit

Dim gApp
Dim gPDDoc

'### Create objects required for the test
Set gApp = CreateObject("AcroExch.App")
Set gPDDoc = CreateObject("AcroExch.PDDoc")

'### Open a PDF Document

gPDDoc.Open ("C:\TestData\PerfOnVMware")

'### Kill all created objects
Set gPDDoc = Nothing
Set gApp = Nothing

__________________________________________

For both Set statements I am getting the following message

"ActiveX Component Can't Create Object "AcroExch.App"

I have the Web, ActiveX and the new Adobe ToolKit selected as QTP Add-Ins. I beleive that the Adobe SDK is alos installed, though I need to check.

Any thoughts would be helpful

Thanks
Mike