como puedo comprimir

[Oscar_Santander]

uso el sigueinte codigo pero me da un error

Código vb:

Dim dRet As Double
        dRet = Shell("C:\Program Files\WinRAR\WinRAR.exe a C:\Users\Leonidas\Desktop\Ejemplosvb.netparaelblog\prueba\prueba\bin\Debug\leonidas.mdb")
 

porfavor ayudenmeee