mmm Creo que no es por el tipo de version, fijate en las referencias del proyecto (Menu Proyecto -> Referencias), que version de ADO tenes seleccionada, trata de seleccionar una de las últimas, a ver que pasa... De todas maneras en la ayuda encontre el siguiente código, probalo a ver que pasa (la conexion esta hecha con DAO, vos tendrias que "traducirla" a ADO...)
Código:
Sub CompactDatabaseX()
Dim dbsNeptuno As Database
Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
' Muestra las propiedades de la base de datos original.
With dbsNeptuno
Debug.Print .Name & ", versión " & .Version
Debug.Print " Secuencia de ordenación = " & .CollatingOrder
.Close
End With
' Asegúrese de que no existe un archivo con el
' nombre de la base de datos compactada.
If Dir("NeptunCo.mdb") <> "" Then _
Kill "NeptunCo.mdb"
' Esta instrucción crea una versión compactada de
' la base de datos Neptuno que utiliza la secuencia
' de intercalación del lenguaje coreano.
DBEngine.CompactDatabase "Neptuno.mdb", _
"NeptunCo.mdb", dbLangKorean
Set dbsNeptuno = OpenDatabase("NeptunCo.mdb")
' Muestra las propiedades de la base de datos compactada.
With dbsNeptuno
Debug.Print .Name & ", versión " & .Version
Debug.Print " Secuencia de ordenación = " & .CollatingOrder
.Close
End With
End Sub
Copyright (c) 1996 Microsoft Corporation
Saludos. Lucas