ＶＢ如何压缩ＡＣＣＥＳＳ２０００数据库？？？？ 

　１、系统没装　ＡＣＣＥＳＳ　软件？ 
　２、我通过ＶＢ代码来执行！ 
　３、压缩完了后，通过代码检测到数据库大小，并显示！！！ 

　４、读取数据采用的是： 
　　　Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " 　　　　　　　& "D:\Data\04Data.mdb;" & "Jet OLEDB:Database Password=123;" 

　５、数据库代有密码！ 


　谢谢！！！！ 

　各位高手请帮忙！！！ 
 
 
但是我想实现一个功能,就是04Data.mdb 数据库文件路径不变,进行压缩? 
不知道,可否??? 
感谢!!!!!! [em3]