Private objApp As New MSProject.Application
objApp.Caption = strParameter
objApp.Visible = 1
objApp.FileOpen "<" & strDSNName & ">/" & strFileName, isReadOnly, , , , , , "sa", "111111", , , , 2
Set objApp = Nothing
objApp.Caption = strParameter
objApp.Visible = 1
objApp.FileOpen "<" & strDSNName & ">/" & strFileName, isReadOnly, , , , , , "sa", "111111", , , , 2
Set objApp = Nothing