ADConnection1.Close;
ADPhysOracleDriverLink1.Release;
ADPhysOracleDriverLink1.VendorHome := 'OracleXE';
ADConnection1.Open;