Visual Basic - Error al compactar

Tengo este Codigo:

Dim sDBTmp As String
Dim je As JRO.JetEngine
Set je = New JRO.JetEngine
sDBTmp = "DB_" & basedatos
je.CompactDatabase "Data Source=" & Dir1 & "\" & basedatos & ";", _
"Data Source=" & Dir1 & "\" & sDBTmp & ";"

Cuando realizo la compactación de una BD me da que no reconoce el formato de la base de datos.

Me podeis ayudar?.Por que puede ser eso.

Sabeis alguna forma para hacer un simple programa VB que no necesite librerias ni nada.

Gracias por todo.