بازکردن فایل های مختلف از داخل پوشه کنار خود برنامه

سلام بر همه دوستان عزیز من می خواهم از داخل یک پوشه کنار برنامه اکسس برنامه های مختلف راباز کنم این دستور را نوشته اما جواب نمی دهد لطفا راهنمایی فرمایید Private Sub Command3_Click() 1 Call fHandleFile(CurrentProject.Path & "shora3dengine.swf", 4)