Código de fechar, zipar com data atual não funciona

Olá, esse código funciona com o winzip, e não sei porque qdo boto com o winrar ele não funciona. Diz que não reconhece  -a

Private Sub CBTCriarBackup_Click()
'Rotina Criada para Fechar o Aplicativo, Compactar e Salvar o BD com a Data Atual'
   If MsgBox("Deseja fechar o Aplicativo e Compacta-ló ?", vbYesNo + 32, "Sair do Aplicativo") = vbYes Then
   Call Shell("C:\Programas\WinRAR\Winrar.exe -a -ex C:\SisBuffet\backup\SisBuffet-be-" & Date$ & " C:\SisBuffet\SisBuffet-backEnd.mdb")
   Application.Quit acExit
   End If
End Sub

??????????

pode tentar isto:

   Call Shell("C:\Arquivos de programas\WinRAR\WinRAR.exe a C:\temp\Arquivo.zip C:\temp\Arquivo.mdb")

segue a ideia com data

Call Shell("C:\Arquivos de programas\WinRAR.exe a C:\temp_zip\ACOMP_" & Format(Date, "mmmm_yyyy") & ".zip C:\temp_zip\ACOMP.mdb")

Call Shell("C:\Arquivos de programas\WinRAR.exe a C:\temp_zip\ACOMP_" & Format(Date, "dd_mmmm_yyyy") & ".zip C:\temp_zip\ACOMP.mdb")