[Tasos]

Καλημέρα σε όλους!

Συνονόματε δοκίμασε:

Option Compare Database
Option Explicit

Private Const SW_SHOWNORMAL = 1

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

Private Sub cmdOpenPDF_Click()

   Dim OpenFile As Long
   
'===Εναλλακτική μέθοδος=======================================================
'   Dim MyFile As String
'   MyFile = Me.txtFilePath 'η διαδρομή του αρχείου σε πεδίο της φόρμας
'   OpenFile = ShellExecute(0, "open", MyFile, "", "C:\", SW_SHOWNORMAL)
'==============================================================================

   OpenFile = ShellExecute(0, "open", "G:\inv\Mypdf.pdf", "", "C:\", SW_SHOWNORMAL)
   
End Sub

Καλή συνέχεια!

Τάσος