Public Function ADOBackUp(ByVal sDBName As String, _
                                ByVal sPath As String, _
                                ByVal sServer As String, _
                                ByVal sNameBackup As String, _
                                ByVal sDescription) As Boolean

    Dim cn As Connection
    Dim sConnectionString As String
    Dim sSQL As String

    sConnectionString = CONNECTION_STRING & "Initial Catalog=master;Data Source=" & sServer

    sSQL = "BACKUP DATABASE " + sDBName + " TO DISK  = '" + sPath + "'" & _
            " WITH INIT, DESCRIPTION = '" + sDescription + "'" & _
            ", NAME = '" + sNameBackup + "'"

    On Error GoTo ADOBackUpError
    
    Set cn = New Connection
    cn.Open sConnectionString
    cn.CommandTimeout =  0 
    cn.Execute sSQL
    cn.Close
    Set cn = Nothing
    ADOBackUp = True
    Exit Function

ADOBackUpError:
    Err.Raise Err.Number, Err.Source, Err.Description
    ADOBackUp = False
End Function

Public Function ADORestore(ByVal sDBName As String, _
                                ByVal sPath As String, _
                                ByVal sServer As String) As Boolean

    Dim cn As Connection
    Dim sConnectionString As String
    Dim sSQL As String

    sConnectionString = CONNECTION_STRING & "Initial Catalog=master;Data Source=" & sServer
    sSQL = "RESTORE DATABASE " & sDBName & " FROM DISK  = '" & sPath & "' WITH REPLACE"

    On Error GoTo ADORestoreError

    Set cn = New Connection
    cn.CommandTimeout =  0 
    cn.Open sConnectionString
    cn.Execute sSQL
    cn.Close
    Set cn = Nothing
    ADORestore = True
    Exit Function

ADORestoreError:
    Err.Raise Err.Number, Err.Source, Err.Description
    ADORestore = False
End Function