Subscript out of range: '[number: 1]'

[[trodat]]

Scusate cosa sbaglio in questo code:

Dim pluto, arr_dalform1
pluto = oRs("ID_CRI") = Rs("ID_CRI")
arr_dalform1 = split(Rs("ID_CRI")," - ")

oRs("CRI") = arr_dalform1(1)
oRs("ID_CRI")= arr_dalform1(0)

perchè restituisce:

Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: '[number: 1]'

Grazie.