Имитация псевдонима PdoxWIN PRIV

var
  d : TDataBase;
begin
  d := TDataBase.Create(Application);
  d.DataBaseName := 'PRIV';
  d.DriverName := 'STANDARD';
  d.Params.Add('PATH='+Session.PrivateDir);
  d.Connected := True;
end;