Ooops, crei que me habia dado a entender... Lo que tenes que poner en
TuBase es el nombre de la base de datos que queres compactar. En realidad el nombre de la variable con la que has abierto la base de datos. O sea:
Código:
Private Sub Command1_Click()
Dim TuBase as DataBase
Set TuBase = Opendatabase("C:\LaBaseQueQueresCompactar.Mdb")
MsgBox TuBase.Name & ", versión " & TuBase.Version
End Sub
En el codigo reemplaza
TuBase por el nombre de la variable de base de datos que definiste, y la ruta con el nombre que te di (
"C:\LaBaseQueQueresCompactar.Mdb"), por el nombre y ruta de la base de datos. De esa manera vas a comprobar la version de la base de datos.
Espero haber sido claro ahora.
Saludos. Lucas