Como conectar ADO con un menu de empresas...
 

Hola a todos , tenia algún tiempo sin poner algo por este foro.
Programo en Delphi 7 y con BD SQL , conecto mi aplicación a la BD por medio de ADO Connection y por medio de un ODBC.
Me ha funcionado de maravilla cuando solo me quiero conectar a una BD ya que el ODBC lo conecto a la misma y todo al 100%.
Hoy tengo la necesidad de mostrar un menú de empresas al iniciar mi aplicación y cada empresa es una BD en SQL por lo cual requiero estar conectando el ADO a diferentes BD.
Cuando creo el ODBC no le pongo BD predeterminada y toma por default la BD Master en la propiedad del componente ADO que se llama DefaultDatabase.
Esa propiedad es la que quiero manipular por medio de Codigo al momento de seleccionar la empresa pero no funciona, la verdad es que no lo asigna . les pongo el código que les comente:

Código Delphi [-]
procedure TFrmPrincipal.RzDBLookupComboBox1Click(Sender: TObject);
begin
 if tbllistaempresa.Locate('NOMBRE',RzDBLookupComboBox1.Text,[]) THEN
  BEGIN
   RzLabel2.Caption:=TblListaempresaAliasBDD.Value;
   ADOConnection1.DefaultDatabase:='';
   ADOConnection1.DefaultDatabase:=RzLabel2.Caption;
  end;
end;

No funciona.
Aunque se que si le asigna la BD pero al correr el query me dice que no existen las tablas involucradas en la consulta.
Alguna recomendación para este tipo de casos?
Gracias de antemano

Cuando existe un número indeterminado de bases de datos (cada una de una empresa o año, por ejemplo), lo más común es tener una pequeña base de datos con una simple tabla donde se guarda el nombre de las distintas empresas, la ruta al fichero, etc.
Te conectarías a esta empresa. El usuario selecciona la empresa a la que quiere conectar. Desconecta de esta BD y conectas a la que haya seleccionado el usuario.

Me parece correcto. ^\||/