Excel - Conexión a base de datos con contraseña

Dim Conn As ADODB.Connection

Dim MiConexion

Dim Rs As ADODB.Recordset

Dim MiBase As String

Dim Query As String

Dim i, j

MiBase = BaseDatosConectada

Set Conn = New ADODB.Connection

MiConexion = Application.ThisWorkbook.Path & Application.PathSeparator & MiBase

With Conn

    .Provider = "Microsoft.ACE.OLEDB.12.0"

    .Properties("Jet OLEDB:Database Password") = "aaa"   '<<<<<<--------------SIKITO LA CONTRASEÑA, SIN ESTA LINEA SI FUNCIONA

    .Open MiConexion                                                           '<<<<<--------------------------AQUI SE PRECENTA EL ERROR

End With

'Valor= comando para buscar * FORM Tabla en la que se busca WHERE Columna = el valos a encontrar

Query = "SELECT * FROM Usuarios WHERE Usuario = '" & UCase(Me.TXT_Usuario.Text) & "'"

Set Rs = New ADODB.Recordset

Rs.CursorLocation = adUseServer

Rs.Open Source:=Query, _

ActiveConnection:=Conn