مشكلة فى كود فتح ملف اسمه يحتوى على مسافة !

الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته

واجهتنى مشكلة فى استخدام كود فتح الملف عن طريق نافذة فتح الملف والمذكور فى هذا المنتدى فى مشاركة سابقة لأبى هاجر وهى عدم امكانية فتح ملف يحتوى على مسافة أو يوجد داخل مجلد يحتوى على مسافة فمثلاً إذا كان الملف abc.mdb يوجد داخل مجلد c:my documents واسمه تظهر رسالة خطأ عند تنفيذ الكود بأنه تعذر فتح الملف c:my.mdb

Private Sub OpenFile_Click()

On Error GoTo Err_OpenFile_Click

Dim lngFlags As Long

    Dim gfni As adh_accOfficeGetFileNameInfo

    Dim SFN As String

    With gfni

        .lngFlags = lngFlags

        .strFilter = "(*.mdb;*.mde)"

        .strDlgTitle = "Open File.."

        .strOpenTitle = "Open" & ""

        .strInitialDir = "C:PA"

    End With

    Dim a

    a = adhOfficeGetFileName(gfni, 0)

    If a = 0 Then

        Me![File Name] = Trim(gfni.strFile)

        Dim stAppName As Variant

        Dim Name As Variant

        Name = Me.[File Name]

        stAppName = "C:Program FilesMicrosoft OfficeOffice10MSACCESS.EXE " & Name

'حتى هذه الخطوة لاتوجد مشاكل ولكن بعد تنفيذ الخطوة التالية يتم اهمال باقى اسم الملف اذا كان يحتوى على مسافة 

        Call Shell(stAppName, vbMaximizedFocus)

        DoCmd.Quit

        Else

        Exit Sub

        End If

        Exit Sub

Err_OpenFile_Click:

If Err.Number = 32755 Then

 MsgBox " You did not change the file name ", 64, "Alert Message "

ElseIf Err.Number = 20477 Then

 MsgBox " Invalid file name  ", 16, "Alert Message "

Else

MsgBox Str(Err.Number) + Err.Description

End If

Exit Sub



Exit_OpenFile_Click:

    Exit Sub

    

End Sub