Il tuo pezzo di codice funziona alla perfezione ma l'ho provato adattandolo alle mie esigenze e mi dà errore

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'Fields'
/diamont/sviluppo.asp, line 119

codice:
Dim orsRecord
orsRecord=server.CreateObject("ADODB.recordset")
		
With orsRecord
  	.ActiveConnection= Nothing
   	.CursorLocation = 3
  	.CursorType = 3
   						
	.Fields.Append "Articolo",200,50
					   	.Fields.Append "Descrizione",200,50
   					   	.Fields.Append "Quant",200,50
   	.Open 

   	.AddNew 
   	.Fields("Articolo") = Articolo			
   	.AddNew 
   	.Fields("Descrizione") = Descrizione
   	.AddNew 
   	.Fields("Quant") = Quant
  	.AddNew 
   	.Sort = "Quant DEC" 

         Do While .EOF = False 
     	 						  
             Response.Write "... " & .Fields("Articolo") & "
" 
							   	  
             Response.Write "... " & .Fields("Descrizione")  
	   	   						  
             Response.Write "... " & .Fields("Quant") 
      	.MoveNext
         Loop 
   Response.Flush

   .Close
	
End With