Te mando trozo de codigo para abrir una base de datos con clave. El problema
es que esta en ADO y no en DAO pero a lo mejor lo puedes adaptar.

Espero que te sirva.

Un saludo:

                    Guille ;-)
                    Cádiz (España)

Ejemplo:

Public Function AbreDB_Access(Cnx As ADODB.Connection, Usuario As String,
Contraseña As String, BaseDeDatos As String) As Boolean
    On Error GoTo Errores

    Set Cnx = New ADODB.Connection
    'Proveedor y cadena de conexion
    Cnx.Provider = "Microsoft.Jet.OLEDB.3.51"
    Cnx.ConnectionString = "Data Source=" & BaseDeDatos & ";Persist Security
Info=False;User ID =" & Usuario & ";Jet OLEDB:Database Password =" &
Contraseña
    'Abrimos la conexion
    Cnx.Open
    AbreDB_Access = True
    Exit Function

Errores:
    MsgBox Err.Number & ":  " & Err.Description, vbCritical, "Error de
conexión"
    AbreDB_Access = False
End Function

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)