下面是我在做SQLSERVER 备份时的一段代码;Dim gSQLServer As SQLDMO.SQLServer
Dim WithEvents oBackupEvent As SQLDMO.Backup
Dim gDatabaseName As String
Dim gBkupRstrFileName As String
Dim gBkupRstrFilePath As StringPrivate Sub Form_Load()
    Set gSQLServer = Nothing
    gbConnected = False
    buttonsConnectClosed    Dim ServerName As String
    Dim UserName As String
    Dim Password As String
    On Error GoTo errhandler:
    If gSQLServer Is Nothing Then
        Set gSQLServer = New SQLDMO.SQLServer
    End If
    ServerName = txtDataSource
    UserName = txtUserId
    Password = txtPassword
    gSQLServer.Connect ServerName, UserName, Password
    gbConnected = True
    FillDatabaseList
    buttonsConnectOpen
    Exit Sub
errhandler:
    MsgBox "Error " & Err.Description
    If Screen.MousePointer = vbHourglass Then
        Screen.MousePointer = vbDefault
    End If
End SuboBackupEvent 有三个事件 如下;Private Sub oBackupEvent_Complete(ByVal Message As String)    PrintStat "oBackupEvent_Complete -- " & Message
End SubPrivate Sub oBackupEvent_PercentComplete(ByVal Message As String, ByVal Percent As Long)
        ProgressBar2.Value = ProgressBar2.Max * (Percent / 100)
      PrintStat "oBackupEvent_PercentComplete -- " & Message & " " & Percent
End Sub
Private Sub oBackupEvent_NextMedia(ByVal Message As String)
    PrintStat "oBackupEvent_NextMedia -- " & Message
End Sub我想问的是 oBackupEvent_NextMedia 事件在什么情况下 触发,我在调试时设了断点 但是不执行呀!!可以给解释一下关于 oBackupEvent_NextMedia !!