Mi da questo errore

ADODB.Recordset (0x800A0CC1)
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.

codice:
Dim orsRecord 
						Set orsRecord = Server.CreateObject ("ADODB.RecordSet") 

						With orsRecord

   						.ActiveConnection = Nothing
   						.CursorLocation = 3
   						.CursorType = 3

   						.Fields.Append "Campo",200,50

   						.Open 
   
					   .AddNew 
					   .Fields("Corpo") = Corpo
					   .AddNew 
					   .Fields("Quant") = Quant
					   .Update 

						.MoveFirst 

   Response.Flush

   .Sort = "Quant Asc" 
	.MoveFirst 
   Do While .EOF = False 
     ' Response.Write "... " & .Fields("Campo") & "
"
	 outStream.Write(Corpo) 
     .MoveNext
   Loop 
   Response.Flush

   .Close
	
End With