Actividad pública reciente
Ha valorado "Buena" la respuesta
Trabajo con Visual basic 6 y bases Access 2003.
Pruebe con este código: Dim db As Object Set db = CreateObject("DAO.DBEngine.36") db.CompactDatabase "ruta_de_tu_base_de_datos_origen", "ruta_de_tu_base_de_datos_destino" Set db = Nothing No olvide reemplazar las rutas de las bases de datos.