[GerTorresM]

Código Delphi [-]
procedure TDMDatosServicios.CrearAlias(ElAlias: String);
Var ListaAlias : TStringList;
begin
  ListaAlias:= TStringList.Create;
  try
    with ListaAlias do
      begin
        Add('DATABASE NAME=C:\Datos\Publicos.mdb');
        Add('USER NAME= ');
        Add('OPEN MODE=READ/WRITE');
        Add('LANGDRIVER= ');
        Add('SYSTEM DATABASE= ');
        Add('PASSWORD= contraseña');
      end;
  Except
  end;

// Si no existe crearlo
If not session.IsAlias(ElAlias) Then
   Begin
   Try
      Session.AddAlias('Servicios','MSACCESS',ListaAlias); 
   except
      MessageDlg('Error creando el Alias: '+ElAlias,mtError,[mbOk],0);
      Exit;
      End;
   End;
end;

Una cosa más el código anterior lo cargue en el vento OnCreate de Modulo de Datos


Germán Torres