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