сам столкнулся с такой проблемой....

вроде решение...


<%
oldFile = "C:\Inetpub\wwwroot\data\it.mdb"
newFile = "C:\Inetpub\wwwroot\data\it2.mdb"

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& oldFile
strConnBak = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & newFile

Set objJRO = Server.CreateObject("JRO.JetEngine")
objJRO.CompactDatabase strConn, strConnBak
Set objJRO = Nothing


Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(newFile) And objFSO.FileExists(oldFile) Then
objFSO.DeleteFile(oldFile)
objFSO.MoveFile newFile, oldFile
'Response.Write "<font size=""+2"" color=""crimson"">Compact and Repair was successful.</font>"
Else
'Response.Write "<font size=""+2"" color=""crimson"">Compact and Repair failed.</font>"
End If

Set objFSO = Nothing
%>