Compress Access database

<%

Sub CompressDB(DBNavn)
    oldDB = Server.MapPath("/fpdb/"&        DBNavn    &".mdb")
    bakDB = Server.MapPath("/fpdb/"&    DBNavn    &"Back.mdb")
    newDB = Server.MapPath("/fpdb/"&    DBNavn    &"Compact.mdb")

    Set FSO = CreateObject("Scripting.FileSystemObject")

    ' back up database

    FSO.CopyFile oldDB, bakDB, true

    ' compact database

    Set Engine = CreateObject("JRO.JetEngine")
   
    prov = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    Engine.CompactDatabase prov & OldDB, prov & newDB
    set Engine = nothing
   

    ' delete original database

    FSO.DeleteFile oldDB

    ' move / rename our new, improved, compacted database

  FSO.MoveFile newDB, oldDB
    set FSO = nothing 
end sub

Call CompressDB("mindatabase")

%>

Jeg har fundet følgende script - som fra asp skulle kunne comprimerer end database - men efter jeg har gjort det kan jeg ikke læsse databasen igen - jeg bruger access 2007 - hvad kan være galt ?