vb + SQLDMO备份恢复出错的问题

[sikeen]

俺用SQLDMO备份和恢复时，总会提示以下错误：
Print Err.Number
-2147221499
Print Err.Description
[SQL-DMO] 代码执行异常错误: EXCEPTION_ACCESS_VIOLATION

担后台的备份和恢复动作都成功了啊？？各位大虾帮帮俺，看一下是什么问题-_-
备份的代码如下:

Dim objSql As New SQLDMO.SQLServer
With objSql
.Name = mStrServer
.Login = mStrLogin
.Password = mStrPassword
.Connect
End With

Dim objBak As New SQLDMO.Backup
With objBak
.Initialize = False
.Action = bytBackupType
.Database = mStrDatabase
.Devices = mStrDatabase
.BackupSetName = mStrDatabase & "备份"
.BackupSetDescription = txtRemark.Text
.SQLBackup objSql
End With
Set objBak = Nothing
objSql.Close
Set objSql = Nothing

[txlicenhe]

看不出什么问题，加一个错误处理吧。
on error goto Err
Dim objSql As New SQLDMO.SQLServer
With objSql
.Name = mStrServer
.Login = mStrLogin
.Password = mStrPassword
.Connect
End With

Dim objBak As New SQLDMO.Backup
With objBak
.Initialize = False
.Action = bytBackupType
.Database = mStrDatabase
.Devices = mStrDatabase
.BackupSetName = mStrDatabase & "备份"
.BackupSetDescription = txtRemark.Text
.SQLBackup objSql
End With
Set objBak = Nothing
objSql.Close
Set objSql = Nothing
exit sub
Err:
msgbox Err.description

[sikeen]

to txlicenhe(马可) :

-_-俺也这么想，但做差异备份恢复时要连着恢复俩咋办呐，第一个恢复完就处理掉了:(

[sikeen]

对了，俺的那个Backup对象是带事件的，为的是获取它的进度，如果不带事件就不会出错了，why？？

Dim WithEvents mObjBak As SQLDMO.Backup

Private Sub mObjBak_PercentComplete(ByVal Message As String, ByVal Percent As Long)
On Error Resume Next
Progress.Value = Percent
End Sub

[sikeen]

乌啦啦俺搞定了~~ ，一并把Complete事件加上就好了，即使什么都不处理!!!!微软真TNND无聊!!!!
Private Sub mObjBak_Complete(ByVal Message As String)
' MsgBox Message
End Sub

PS：俺想给自己结50分咋结?能回答的再送100分：）

[sikeen1]

谢谢各位，本ID仅用于回收部分多于分。