Open a password protected accdb file with VBA

[ChromiumAgeCollector]

I'm trying to open an access database with some VB code. The following code I have works but only for 2003 format. What could can I use to open up the .accdb format?

Public objaccess As DAO.Database
Public ws As DAO.Workspace

Sub main()

    Set ws = DBEngine.Workspaces(0)

    Set objaccess = ws.OpenDatabase("C:\Users\CNOIFX\Desktop\Files_from_C_drive\Hantleman.mdb", False, False, "MS Access;PWD=ppgroomer")

End Sub