关于对Access2000压缩的问题

Question

使用JRO(工程菜单->引用->Microsoft jet and replication objects 2.5)
JRO jetengine对象用一个CompactDatabase方法可以压缩数据库。
下面是一个使用CompactDatabase压缩数据库的例子：
strConnOriginal = "Prvider = Microsoft.jet.oledb.4.0;Data Source = FilePath;"     '源数据库
strConnNew = "Microsoft.jet.oledb.4.0;Data Source = FilePath;"   '压缩后数据库
set jroEngine = New JRO.JetEngine
jroEngine.CompactDatabase strConnOriginal,strConnNew