Access - Abrir base de datos Access con password desde la base que estoy trabajando

Option Compare Database

#If VBA7 Then

   Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _

(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

#Else

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _

      (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

#End If

Private Sub Comando1_Click()

Dim ruta As String

ruta = Application.CurrentProject.Path & "\Update\Updater.accdb"

Call ShellExecute(Me.hwnd, "Open", ruta, "", "", 1)

DoEvents

DoCmd.Quit

End Sub

Dim acc As Access.Application

Dim ruta As String

ruta = Application.CurrentProject.Path & "\Update\Updater.accdb"

Set acc = New Access.Application

acc.Visible = True

acc.OpenCurrentDatabase ruta, False, "password"

acc.UserControl = True

DoEvents

Application.Quit