RE:COMOCOMPACTAR UNA BD DE ACCESS DESDE VISUAL BAS
debes crear una cadena de conexión
si es en DAO: basededatos.connect = ";pwd=myclave"
si es ADO: Abres el ADODATA y le dices generar conexión en la página de propiedades. luego escoges modificar detallado en donde dice password database y colocas la clave de la base de datos.
en DAO se puede reparar y luego compactar (repairdatabase y compactdatabase)
en ADO con el objeto JRO de ADO: JRO.CompactDataBase