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

    'preparing strings
800    sConnectionString = CONNECTION_STRING & "Initial Catalog=master;Data Source=" & sServer
810    sSQL = "BACKUP DATABASE " + sDBName + " TO DISK  = ' " + sPath + " '" & _
            " WITH INIT, DESCRIPTION = ' " + sDescription + " '" & _
            ", NAME = ' " + sNameBackup + " '"
                    
820    On Error GoTo ADOBackUpError
    
830    Set cn = New Connection
840    cn.Open sConnectionString
850    cn.CommandTimeout = 0
860    cn.Execute sSQL
870    cn.Close
880    Set cn = Nothing
890    ADOBackUp = True
    
900    Exit Function

ADOBackUpError:
910    Err.Raise Err.Number, Err.Source, Err.Description
920    ADOBackUp = False
930    Exit Function

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

    'preparing strings
 940     sConnectionString = CONNECTION_STRING &  "Initial Catalog=master;Data Source="  & sServer
 950     sSQL =  "RESTORE DATABASE "  & sDBName &  " FROM DISK  = '" & sPath & "' WITH REPLACE" 
                    
 960     On Error GoTo ADORestoreError
    
 970     Set cn = New Connection
 980     cn.CommandTimeout =  0 
 990     cn.Open sConnectionString
 1000     cn.Execute sSQL
 1010     cn.Close
 1020     Set cn = Nothing
 1030     ADORestore = True
    
 1040     Exit Function

ADORestoreError:
 1050     Err.Raise Err.Number, Err.Source, Err.Description
 1060     ADORestore = False
 1070     Exit Function

End Function

ADORestoreError:
 1050     MsgBox  "Еrror at line "  & Erl
 1060     ADORestore = False
 1070     Exit Function

osql -Uuser -Ppassword -Sserver -Q "BACKUP DATABASE databasename TO DISK  = 'c:\backup' WITH INIT, DESCRIPTION = 'Description', NAME = 'NameBackup'"