如何将服务器端的数据库备份到本地(SQLDMO)---在线等候

用SQL Server的SQLDMO编程’服务器
Dim gSQLServer As SQLDMO.SQLServer
'备分
Dim WithEvents oBackupEvent  As SQLDMO.Backup
’还原
Dim WithEvents oRestoreEvent As SQLDMO.RestoreVB示例如下：
’COMMAND CLICK 事件Private Sub cmdBack_Click()
    On Error GoTo ErrHandler:
    
    Dim oBackup As SQLDMO.Backup
    
    gDatabaseName = "Business"   ‘数据库名字
    Set oBackup = New SQLDMO.Backup
    Set oBackupEvent = oBackup ' enable events
    
    oBackup.Database = gDatabaseName
    gBkupRstrFileName = txtDataFileName.Text   ‘要备份的文件名
    oBackup.Files = gBkupRstrFileName
    
    If Len(Dir(gBkupRstrFileName)) > 0 Then
        Kill (gBkupRstrFileName)
    End If
    
    Screen.MousePointer = vbHourglass
    ‘备份
    oBackup.SQLBackup gSQLServer
    
    Screen.MousePointer = vbDefault
   
    Set oBackupEvent = Nothing ' disable events
    Set oBackup = Nothing
    
    Exit SubErrHandler:
    MsgBox "Error " & Err.Description
    Resume Next
End Sub