Public Function SichernUpDB(ByVal sServer As String, _
      ByVal sDataBase As String, _
      ByVal sUser As String, ByVal sPW As String) As Boolean
 
        ' Fehlerbehandlung aktivieren
        On Error GoTo ErrHandler
 
        Dim oSQLServer As SQLDMO.SQLServer
        Dim oBackUpDev As SQLDMO.BackupDevice
        Dim sBackUpDBName As String
        Dim sPath As String
        Dim bExistDevice As Boolean
 
        oSQLServer = New SQLDMO.SQLServer
 
        ' ...mit Server connecten
        oSQLServer.Connect(sServer, sUser, sPW)
 
        ' ...Backupnamen vergeben
        sBackUpDBName = sDataBase & "_BACKUP"
 
        ' ...Backuppfad setzen ( Standardpfad des SQL-Server + "\BackUp" )
        sPath = oSQLServer.Registry.SQLRootPath & "\Backup"
        bExistDevice = False
 
        ' ...prüfen, ob BackUpDevice schon existiert
        For Each oBackUpDev In oSQLServer.BackupDevices
            If UCase(oBackUpDev.Name) = UCase(sBackUpDBName) Then
                bExistDevice = True
                Exit For
            End If
        Next
 
        ' ...wenn Device noch nicht angelegt, dann jetzt anlegen
        If Not bExistDevice Then
            oSQLServer.ExecuteImmediate("sp_addumpdevice 'disk','" & _
              sBackUpDBName & "','" & sPath & "\" & sBackUpDBName & ".BAK'")
            oSQLServer.BackupDevices.Refresh()
        End If
 
        ' ...durch Sichern als Full-Backup wird das LOG automatisch 
        ' mitgesichert,
        '    braucht also nicht seperat gesichert werden
        oSQLServer.ExecuteImmediate("backup database " & sDataBase & _
          " to " & sBackUpDBName & " with init")
 
        ' ...Verbindung schliessen und Objekte leeren
        oSQLServer.Close()
        oBackUpDev = Nothing
        oSQLServer = Nothing
 
        ' Rückgabewert: Sicherung erfolgreich
        BackUpDB = True
        On Error GoTo 0
        Exit Function
 
ErrHandler:
        ' Fehler!
        MsgBox("Fehler beim Erstellen der DB-Sicherung." & vbCrLf & _
          Err.Number & " " & Err.Description, vbCritical)
 
        BackUpDB = False
    End Function