Cita:
Iniciado por bubilo 
lo que para es que tenes que hacer una referencia en el proyecto a el motor de DAO
Anda a proyecto -> referencias y alli selecciona microsoft DAO 3.6
ya te va a aparecer como comando DBENGINE
TE PASO UN EJEMPLO DE PASO PARA COMPACTAR UNA BASE
DBEngine.CompactDatabase App.Path & "\base.mdb", App.Path & "\base1.mdb"
Kill App.Path & "\base.mdb"
FileCopy App.Path & "\base1.mdb", App.Path & "\base.mdb"
Kill App.Path & "\base1.mdb"
End
Al querer compactar me da el error 3356 "que estoy intentando abrir una base abierta ya abierta en modo exclusivo"
al codigo le agrege antes lo siguiente:
base.Close
Set base= Nothing
y la coneccion la hago
Set CnBD = New Connection
CnBD.Provider = "Microsoft.jet.OLEDB.4.0"
CnBD.Open App.Path & "\base.mdb"
Me podrian ayudar? la base esta en access 2k
Gracias