How to open PDF files using Acrobat.AcroPDDoc

Dim adAcrobatApp As New Acrobat.AcroPDDoc

Dim adAcrobatDoc As Object

The above two lines i declare in genral

If InStr(1, filename, ".pdf") > 0 Then
      If Not (adAcrobatDoc Is Nothing) Then
         MsgBox " Aplication is already running"
         adAcrobatApp.Open (filename)
         Exit Sub
      ElseIf adAcrobatDoc Is Nothing Then
            MsgBox "Application not running"
          Set adAcrobatDoc = CreateObject("AcroExch.PDDoc")
          MsgBox filename
          adAcrobatApp.Open (filename)
         
      End If

This the code i written my porblem is iam getting the adobe window but its showing the file doesnot exsisit

and later few seconds debug msg that Runtime error:429 ActivexComponet can't create object so kindly help me how to resolve this issue

Thanks In advance

It is important to realize that Adobe Reader is not the same thing as Acrobat. If you are reading documentation, be sure you note which one (or both) it is talking about.

Developing with Acrobat, or Reader, should not rely on an object browser; be sure to use the Acrobat SDK. The object models are complicated. If Acrobat had been installed and your example had worked, the document opened would have been invisible because you did not open an AVDoc as well.

http://forum.planetpdf.com/wb/default.asp?action=9&read=62107&fid=133