Try
            Shell("C:\Program Files\Microsoft Office\Office11\MSaccess.exe ""C:\Program Files\Victory Packaging\Emailing\Emailing.mdb""", AppWinStyle.NormalFocus)
        Catch ex As Exception
            MsgBox("There was an error: " & ex.Message & ex.StackTrace)
        End Try