Acceder a access con contraseña

[GerTorresM]

Código Delphi [-]

function ConexionBDADO(pNombreBaseDatos, pContrasena: String): TAdoConnection;
var ConStr_local : String;
    BaseDatosAplicacion : TAdoConnection;
begin
     Result:= nil;
     if FileExists(pNombreBaseDatos) then
         begin 
       ConStr_local:= 'Provider=Microsoft.Jet.OLEDB.4.0; ' +
       'User ID=Admin;'+
               'Data Source=' + pNombreBaseDatos  + ';' +
               'Persist Security Info=False;' +
               'Jet OLEDBatabase Password=' + pContrasena ;
             BaseDatosAplicacion:= TADOConnection.Create(nil);
             BaseDatosAplicacion.ConnectionString:= ConStr_local;
             BaseDatosAplicacion.LoginPrompt:= False;
             BaseDatosAplicacion.open;
         Result:= BaseDatosAplicacion;
    end
     else begin
          Showmessage('No existe la base de datos');
          exit;
      end;
end;