باز کردن فایل PDFدر ویژوال بیسیک

سلام
دوستان من یک برنامه نوشتم که فایل PDF را که در نرم افزار در مسیر مورد نظر انتخاب میکنی میاد یک کپی از فایل در مسیری که درنرم افزار براش تعریف شده کپی می کنه و نام فایل را در بانک اطلاعاتی ذخیره می کنه(فیلد از نوع تکس می باشد).حالا من میخوام وقتی اسم فایل پی دی اف رو از بانک میخونم بتونم با آکروبات باز کنم.دستورات باز کردن فایل پی دی اف در نرم افزاری که با VB6 نوشتم رو می خوام؟؟
ممنون میشم توضیح بدید؟

مسیر فایل رو به سابروتین زیر OpenFile ارسال کنید.

کد HTML:

---

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" _
                                      Alias "ShellExecuteA" ( _
                                      ByVal hwnd As Long, _
                                      ByVal lpOperation As String, _
                                      ByVal lpFile As String, _
                                      ByVal lpParameters As String, _
                                      ByVal lpDirectory As String, _
                                      ByVal nShowCmd As Long) As Long

Sub OpenFile(sPath As String)
    On Error Resume Next
    ShellExecute 0&, vbNullString, sPath, vbNullString, vbNullString, 1&
End Sub

---

مثال:

کد HTML:

---

OpenFile "c:\myfile.pdf"

---

البته باید Adobe acrobat نصب داشته باشید.

سلام
طبق تصویر پیوست میخواستم که فایل پی دی اف فراخوانی و اجرا بشه
و همچنین ادرس دهی نسبی باشه
ممنون اگه راهنمایی کنید
فایل پروژه هم پیوست کردم
با تشکر
ضمیمه 150006

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



ShellExecute Me.hWnd, vbNullString, App.Path & "\2.docx", vbNullString, "C:", SW_SHOWNORMAL

این دستور رو تست کن