Problema per aggiunta nuovo valore in oggetto Scripting.Dictionary

[CiodoF]

Salve.
Utilizzo un oggetto Scripting.Dictionary, ed ho un problema quando aggiungo dei dati al dizionario.
Quando lo carico la prima volta (con query da BD), non ho nessun problema.
Però quando per necessità devo agiungere un valore mi da un errore del tipo :

Errore 457 Eccezione da HRESULT: 0x800A01C9.

I dati che carico com eky del dizionario sono del tipo :
=../site/page.wplus?id_count=contatti&ln=3
e come valore metto il valore numerico 1

Il problema non è nel primo caricamento, ma quando devo aggiungere delle chiavi nuove al dizionario.

Riporto il dettaglio completo dell'errore
Eccezione da HRESULT: 0x800A01C9.
Descrizione: Eccezione non gestita durante l'esecuzione della richiesta Web corrente. Per ulteriori informazioni sull'errore e sul suo punto di origine nel codice, vedere l'analisi dello stack.

Dettagli eccezione: System.Runtime.InteropServices.COMException: Eccezione da HRESULT: 0x800A01C9.


Dankyu.

[Robycz]

credo di non aver capito...
posta un po di codice che vediamo.

[CiodoF]

Così carico inizilamente :

	SQL_Testo = "SELECT DISTINCT Link FROM Mappa_Sito_Spider ;"
	set rec = Server.CreateObject("ADODB.Recordset")
	rec.ActiveConnection = OBJdbConnectionSite
	rec.Source = SQL_Testo
	rec.CursorType = 3
	rec.CursorLocation = 3
	rec.LockType = 3
	rec.Open
	Tmp=""
	set Collezione_Mappa_Sito_Spider=CreateObject("Scripting.Dictionary")
	if not rec.EOF then
		do while not rec.EOF
			on error resume next
			Tmp=rec.fields("Link").value
			if Valore_Nullo_DB(Tmp) Then
				Tmp=""
			end if
			Valore_Restituito_Funzione=Collezione_Mappa_Sito_Spider.Add(lcase(Tmp),"1")
			on error goto 0
			rec.movenext
		loop
	end if

Così aggiungo uno nuovo

on error resume next
Valore_Restituito_Funzione=Collezione_Mappa_Sito_Spider.Add(lcase(Link),"1")
on error goto 0