afviklingstid stiger voldsomt

Hey...

Jeg har følgende ASP kode, hvor afviklingstiden stiger voldsomt.
Koden er et jubel script JA, men den skal åbne alle de .xls filer som findes i en mappe, og løbe alle igennem, hvor den tager bestemte kolonner, og tilføjer hver enkel række i en access db, hvis de ikke er tilføjet i forvejen fra denne fil (tjekker på indhold fra en bestemt kolonne).

scriptet virker somså fint nok, men selvom den kun kører gennem 2 ens filer (forskellig navn), tager nummer 2 over dobbelt så lang tid som den første - er de rnogle som kan forklare hvorfor, og evt. komme med forbedringer?

-Det skal lige siges, at det SKAL være excel filer den henter fra, da jeg ikke er herre over dem.

-----------Kode start-------------------------------------------
<!-- #include File="func.asp" !-->
<%
set objFS=Server.CreateObject("Scripting.FileSystemObject")
'Overwriting old indexDB with an empty indexDB
objFS.CopyFile strDBPath & ".bak", strDBPath, true

'Connect to indexDB.mdb
connectDB()


Dim arrControl()
ReDim arrControl(1)

intCountAll = 0
intCountValid = 0
intFiles = 0
Set objFolder=objFS.GetFolder(Server.MapPath(strXlsFolder))
Set objRS = Server.CreateObject("ADODB.Recordset")

'Loop through all excel files
for each objFile in objFolder.files
  strFileName = objFile.Name
  If Right(strFileName,3) = "xls" Then
    'Connect to selected Excel file
    connectXls(Server.MapPath(strXlsFolder & strFileName))
   
    ' Select and open Sheet
    objRS.Open "select [KANAL],[PLAC/POS],[BETEGNELSE] from [" & strSheetName & "$];", objXlsConn
   
    'Loop through the whole excel file
    do while not objRS.EOF
        blnWrite = True
        intCountAll = intCountAll + 1
        strPos = objRS.fields.item("PLAC/POS").value
       
        'Testing for empty field
        If (strPos & "x") = "x" then
        blnWrite = false
        End If
       
        'Testing for dublet
        i = UBound(arrControl)
        Do while ((i >= LBound(arrControl)) and (blnWrite = true))
        If (arrControl(i)) = (strPos) then
            blnWrite = false
        End if
        i = i - 1
        Loop 
       
        if blnWrite = true then
        'Save record in array
        ReDim Preserve arrControl(intCountAll)
        arrControl(intCountAll) = strPos
       
        'Insert in DB
      strSQL = "insert into Tabel ("
        strSQL = strSQL & "fil,"
        strSQL = strSQL & "pos)"
        strSQL = strSQL & " values( "
        strSQL = strSQL & "'" & Left(strFileName,3) & "',"
        strSQL = strSQL & "'" & strPos & "')"
        objDBConn.execute(strSQL)
        intCountValid = intCountValid + 1
        end if
       
       
        'If intCount is multiple of 50 -> update status
        if (intCountAll mod 50) = 0 then
        writeStatus intcountAll, "<br>" & intcountValid & " records added in DB<br>" & intFiles & " files completed"
        end if
       
        'Move to next row in excel-sheet
        objRS.movenext
    loop
       
    'Close Xls connection   
    disconnectXLS()
    'Update File-Counter
    intFiles = intFiles + 1
   
    'Debug line
    response.write Ubound(arrControl) & " -> "
   
    'Resset Control array
    ReDim arrControl(1)
    'arrControl(0) = ""
   
    'Debug line
    response.write Ubound(arrControl) & "<br>"
    end if
next

'disconnect to indexDB.mdb
disconnectDB()

'Write Complete in status file
writeStatus intCountAll, "<br>" & intcountValid & " records added in DB<br>Update Complete"
response.write intCountAll & "records processed<br>"& intcountValid & " records added in DB<br>Update Complete"
%>
--------------Kode Slut-------------------------------------------