Problem med komprimering af DB via VBS

Nedenstående kode, som jeg har modtaget fra en her på Eksperten, kan fint dekompilere en database, men ikke komprimere den. Hvorfor?

Option Explicit

Dim oCD  : Set oCD = CreateObject("MSComDlg.CommonDialog")
Dim sFilespec : sFilespec = String(260, Chr(0))
Const OFN_HIDEREADONLY = &H4
Const OFN_CREATEPROMPT = &H2000
Const OFN_EXPLORER = &H80000
Const OFN_LONGNAMES = &H200000
Const cdlOFNFileMustExist = &H1000

 
With oCD
  .Flags = cdlOFNFileMustExist or OFN_EXPLORER Or OFN_LONGNAMES Or OFN_CREATEPROMPT Or OFN_HIDEREADONLY
  .MaxFileSize = 260
  .InitDir = "c:\" 
  .DefaultExt = "txt"
  .Filter = "Access Database Files (*.mdb) | *.mdb"
  .FilterIndex = 1
  .Showopen
  sFileSpec = .FileName
End With

if sFileSpec = "" then
  Msgbox("Du valgte ikke en fil..")
Else

Dim WshShell
  Set WshShell = CreateObject("WScript.Shell")
  WshShell.run "MSACCESS /decompile " & sFilespec
  WshShell.run "MSACCESS /compact " & sFilespec
WScript.Quit