If I'm not mistaken, the code you have found opens another MS Access instance. If you want to open a BE password protected from the Front End you'll need something like this:
Dim MyBE_DB as DAO.Database
Set MyBE_DB = DBEngine(0).OpenDatabase(BACKEND_PATH_AND_FILE, False, False, "MS...