Sto cercando di fare l'aggiornamento di un record e ricevo l'errore:

Indice non incluso nell'intervallo: '[number: 3]'

Questo perchè nella variabile selecto, in questo caso ci sono solo tre valori per cui giustamente mi tira fuori quell'errore.
Come posso risolvere?
Grazie
codice:
 
    Dim selecto
    selecto = CampiRS("gestione_1")
    
    Dim ricevo
    Ricevo=split(selecto,",")

    set aggiorno = Server.CreateObject("ADODB.Command")
    aggiorno.ActiveConnection = "dsn=pwd;"
    aggiorno.CommandText = "UPDATE Chiamate  SET CodPr =  '" + ricevo(0) + "', CodPr_1 = '" + ricevo(1) + "', CodPr_2 = '" + ricevo(2) + "', , CodPr_3 = '" + ricevo(3) + "' WHERE NumChiamata = 'X1RTU3'"
    aggiorno.CommandType = 1
    aggiorno.CommandTimeout = 0
    aggiorno.Prepared = true
    aggiorno.Execute()