Contraseña excel a access

Estimados amigos: estoy haciendo una pequeña aplicación en la cual excel pueda interactuar con access, para lo cual estoy utilizando estos dos códigos (diferentes)

1)

Set cnn = New ADODB.Connection
Set Rst = New ADODB.Recordset
Set cmd = New ADODB.Command
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Trim(Sheets("anexo").Range("p3").Value)

2)

Function ADO_CONEXION(CONEXIÓN As Object)
On Error GoTo ERROR_ADO_CONEXION
Set CONEXIÓN = New ADODB.Connection
CONEXION.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Trim(Sheets("anexo").Range("p3").Value)

ADO_CONEXION = 0
Exit Function

ERROR_ADO_CONEXION:
ADO_CONEXION = 1
End Function

Ahora bien deseo que la base de datos de access tenga clave para que no pueda abrirse, sin embargo no se en que parte de estos dos códigos se debe incluir la clave para que excel pueda interactuar con access como si esta no tuviera clave ya que actualmente los estoy utilizando así pero ya hemos tenido accidentes lamentables.

si alguno puede ayudarme se lo voy a agradecer de todo corazón.

saludos