Sub sOpenDBWithPwd()
    Dim strDB As String
    Dim strCmd As String
    Dim objSecuredDB As Access.Application

    strDB = "J:\NewCode97.mdb"
    strCmd = SysCmd(acSysCmdAccessDir) & "\MSAccess.exe " _
        & strDB & " /wrkgrp " & DBEngine.SystemDB _
        & " /user Admin"  '/pwd ''"
    
    Call Shell(strCmd, vbNormalFocus)
    DoEvents: DoEvents: DoEvents
    Set objSecuredDB = GetObject(strDB)
    Stop
End Sub