Errore sconosciuto

[abellos]

Ciao,
ogni tanto ricevo il seguente errore

Microsoft VBScript runtime error '800a0cb3'


Unknown runtime error


/inc/funzioni.asp, line 366

la linea incriminata e' qui

Function TableExists(Database , NomeTabella )    
    
    tableToFind = NomeTabella 
    dbname = Database  


    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source="  
    ConnStr = ConnStr & server.mappath(dbname)


    set adoxConn = CreateObject("ADOX.Catalog")  
    set adodbConn = CreateObject("ADODB.Connection")  
    adodbConn.open ConnStr  
    adoxConn.activeConnection = adodbConn  
    found = false 
    for each table in adoxConn.tables    <<<-------------------------- ERRORE QUI
        if lcase(table.name) = lcase(tableToFind) then 
            found = true 
            exit for 
        end if 
    next 
    adodbConn.close: set adodbConn = nothing
    set adoxConn = nothing  


    if found then 
        'response.write("Table exists.")
        TableExists = true
    else    
        'response.write("Table does not exist.") 
        TableExists = false
    end if 


End Function

mi sapete dire cosa c'e' di sbagliato?