Conexión en Access con excel

Hola espero que me puedan ayudar ya que tengo un código para hacer la conexión con access y too bien

Pero a la hora de ponerle lal contraseña cifrada y modificar el código sale el error que la contraseña es invalida

El código es el siguiente

Sub actualizar_datos()
Dim path_Bd As String
Dim cnn As New ADODB.Connection
'CONECTAMOS CON LA BASE DE DATOS DE ACCESS Y ABRIMOS CONSULTA
path_Bd = "C:\prueba.accdb"
cnn.ConnectionString = " Provider = Microsoft.ACE.OLEDB.12.0"
cnn.Properties("Data Source") = path_Bd
cnn.Properties("jet OLEDB:Database Password") = "123"
cnn.Open
' aqui pongo el siguiente sodigo pero no paso de  cnn.open espero que me ayuden con eso
End Sub

Este codigo esta en excel