Dim sor As Integer

        sor = MsgBox("Veritabanınızın Sıkıştırılarak Yedeği Alınsınmı??", vbYesNo)

        If sor = vbYes Then

            MsgBox("Yedeğiniz __C:\Veritabanı_Yedek_Klasörü__İçerisindedir")

            Application.ExitThread()



            Dim zippath As String = IO.Path.Combine("C:\Veritabanı_Yedek_Klasörü.zip")

            Dim zip As ZipPackage = ZipPackage.Open(zippath, IO.FileMode.Create, IO.FileAccess.ReadWrite)

            Dim part As PackagePart = zip.CreatePart(New Uri("/tablolar.mdb", UriKind.Relative), _

                                                     Net.Mime.MediaTypeNames.Application.Zip, CompressionOption.Normal)

            Dim bytes() As Byte = My.Computer.FileSystem.ReadAllBytes(Application.StartupPath & "\tablolar.mdb")

            part.GetStream.Write(bytes, 0, bytes.Length)

            zip.Close()

        End If

        If sor = vbNo Then

            MsgBox("Yedeğiniz Alınmamıştır Bu Sizin Yararınıza Olmayabilir !!!")

            Application.ExitThread()

        End If

ICSharpCode.SharpZipLib.dll kullanarak sorunu böyle çözdüm