Private Sub Backup()
        Dim backupSvc As New FbBackup
        backupSvc.ConnectionString = FirebirdConnection
        backupSvc.BackupFiles.Add(New FbBackupFile("\\ANS-PORTATILE\Users\Ans-66\Documents\backFDB.bck", 2048))
        backupSvc.Verbose = True
        backupSvc.Options = FbBackupFlags.IgnoreLimbo
        backupSvc.Execute()
    End Sub
    Private Sub Restore()
        IO.File.Delete("\\ANS-PORTATILE\Users\Ans-66\Documents\GESTENTUSC.FDB")
        Dim restoreSvc As New FbRestore
        restoreSvc.ConnectionString = FirebirdConnection
        restoreSvc.BackupFiles.Add(New FbBackupFile("\\ANS-PORTATILE\Users\Ans-66\Documents\backFDB.bck", 2048))
        restoreSvc.Verbose = True
        restoreSvc.PageSize = 4096
        restoreSvc.Options = FbRestoreFlags.Create And FbRestoreFlags.Replace
        restoreSvc.Execute()
    End Sub