comprimir access 2000 con ado.cls

Access 数据库压缩工具

Attribute VB_Name = "ComprimirAccess2000"
'****************************************************************************
' ：） 人人为我，我为人人 ：）
'枕善居汉化收藏整理
'发布日期：06/06/23
'描    述：Access 数据库压缩工具
'网    站：http://www.mndsoft.com/
'e-mail  ：[e-mail]   最新的邮箱,如果您有新的好的代码别忘记给枕善居哦
'OICQ    ：88382850
'****************************************************************************
'Compact Access Databases with one line of Code!
'"One line of Code", like this:  ;-)
'     CompactDB Database, ShowResume, Password
' or this example:
'     CompactDB App.Path & "\Datos.mdb", True, "Joselo.11