O codigo excede o tempo de execução

Question

Estou tentando carregar uma planilha excel com dados do access, porém o script está estourando o tempo de execução e já alterei mesmo lá tendo alterado a configuração do iis. Alguém tem uma dica pra esse codigo?
flw.

Set RS = Server.CreateObject("ADODB.RecordSet")
                
        Set objAplic  = Server.CreateObject("Excel.Application")
        local = request.form("strArquivo")
        strPath =  Request.ServerVariables("APPL_PHYSICAL_PATH")
        objAplic.DisplayAlerts = False
        objAplic.Workbooks.Add local 'INDICA O CAMINHO DO ARQUIVO MODELO
    
        Set objExport = objAplic.ActiveWorkbook    
        objAplic.workSheets("margem").activate
        Set objRep    = objAplic.ActiveSheet
        
        coluna = 15
        for i = 1 to 12
            sSql = "select * from energiaCircReal where mes=" & i & " and ano=2006"
            RS.open sSql,conexao,3,3        
            objRep.cells(9,coluna).value = RS("residNormal")
            objRep.cells(10,coluna).value = RS("residBx")
            objRep.cells(11,coluna).value = RS("ind")
            objRep.cells(12,coluna).value = RS("com")
            objRep.cells(13,coluna).value = RS("rural")
            objRep.cells(14,coluna).value = RS("poderPub")
            objRep.cells(15,coluna).value = RS("ilumiPub")
            objRep.cells(16,coluna).value = RS("servPub")
            objRep.cells(17,coluna).value = RS("proprio")
            coluna = coluna + 1
            RS.close
        next            
        objAplic.WorkBooks(1).saveAs local
        objAplic.Quit
        Set objAplic = nothing