压缩带口令ACCESS数据库的问题！(50分)

对access2000数据库设置了口令'123',在进行压缩时，方法：
strDataSource := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBname + ';';
strDataDest := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + strDataDestName + ';';
strDataDest := strDataDest + 'Jet OLEDB:Engine Type=5';
...
加上口令：
strDatasource := strDatasource + 'Jet OLEDB:Engine Type=5;Jet OLEDBatabase Password=123';

用CompactDatabase(strDataSource, strDataDest)进行压缩时，压缩后的数据库口令丢失了
改用
strDatasource := strDatasource + 'Jet OLEDB:Engine Type=5;Jet OLEDBatabase Password=123';
strDataDest :=strDataDest+';Jet OLEDBatabase Password=123';
...
CompactDatabase(strDataSource, strDataDest),发生错误，
对带口令ACCESS2000数据库，该如何压缩呢？

strDataDest := strDataDest + ';Jet OLEDBatabase Password=123';
strDataSource := strDataSource+'Jet OLEDBatabase Password=123'+';';
CompactDatabase(strDataSource, strDataDest),

多人接受答案了。