Access Db Compact

HELLO!

I would like compact my ACCESS DATABASE with a vb code

How can i do?

Thank's

Cybercool

http://www.vbforums.com/showthread.p...hreadid=185571

Ensure database is closed. This can be checked by looking for a the database name with an extension of LDB. The dbName must include the the path where the database is included

dbName = App.Path & "\MyDB.mdb"

DBEngine.CompactDatabase dbName, dbName & "!!!"
Kill dbName
Name dbName & "!!!" As dbName