使用SMO添加备份压缩选项时，备份数据库代码不起作用

Question

插入压缩选项时，为什么我的备份数据库代码无法正常工作？单个注释行是罪魁祸首，当我删除它时，程序成功备份。但是，如果没有注释，Visual Studio会出现错误：An unhandled exception of type System.ExecutionEngineException' occurred in Unknown Module。

Dim bk As New Backup
bk.Action = BackupActionType.Database
bk.BackupSetDescription = "Full backup of " + Main.dbname
bk.BackupSetName = Main.dbname
bk.Database = Main.dbname
//bk.CompressionOption = BackupCompressionOptions.On

Dim bdi As BackupDeviceItem
bdi = New BackupDeviceItem(backupPath + Main.dbname + ".bak", DeviceType.File)

bk.Devices.Add(bdi)
bk.Incremental = False

bk.SqlBackup(srv)

bk.Devices.Remove(bdi)