Try using ARJ

Code:
dim x 

    x = shell("arj a -va c:\MyArchive.arj c:\Hello.mdb")