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