strDestFileName = "c:\temp\TestZipFile.zip"   
strSourceFileName = "c:\temp\test.pdf"   
str7ZipPath = "C:\Program Files\7-Zip\7z.exe"   
strPassword = "MyPassword"   

strCommand = str7ZipPath & " -p" & strPassword & " a -tzip """ & strDestFileName & """ """ & strSourceFileName & """"
Shell strCommand

Private Sub Form_Timer()
    Me.zaman = Time
    Me.tarih = Date
    
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("Yedekler")
    
    rs.MoveFirst
    DoEvents
    Do Until rs.EOF
        If rs.Fields("YedekSaati") = Me.zaman Then
            x = Shell("C:\Program Files\WinRAR\winrar.exe" _
            & " a -inul -isnd -ilogc:\YedHata.log -y -x*.mp3 -x*.avi -x*.mpg -s -v720m -vn -ibck -dh -r -ag-YYYYMM " _
            & rs.Fields("SaklanacakYer") _
            & "\" & rs.Fields("YedekAdi") _
            & Format(Date, "ddd") & " " _
            & rs.Fields("YedekYeri") _
            & "\*.*")
        End If
    rs.MoveNext
    Loop
    rs.Close
End Sub