Como hago para campactar una base de datos desde VB con ADO? Jose María Fueyo ================ Hola. ADO se compone de tres librerias: ADO (para acceso digamos normal a los datos), ADOX (extensíon para lenguaje de definición de datos y seguridad) y por último, JRO (Jet Replication Objects). Tienes que usar ésta última. Por ejemplo (tomado de la documentación de migración de DAO a ADO) Sub JROCompactDatabase() Dim je As New JRO.JetEngine ' Make sure there isn't already a file with the 'name of the compacted database. If Dir("c:\newnwind.mdb") <> "" Then _ Kill "c:\newnwind.mdb" 'Compact the database je.CompactDatabase "Data Source=C:\nwind.mdb;", _ "Data Source=C:\newnwind.mdb;" ' Delete the original database Kill "c:\nwind.mdb" 'Rename the file back to the original name Name "c:\newnwind.mdb" As "c:\nwind.mdb" End Sub Espero te sirva.