ADODB.Recordset error ’800a0cc1’

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/lpdaac/dynamic.asp, line 77

When this code is run (line 77 highlighted in red)

Dim i, allstates, z, num, maxcounter

for i = 0 to numRecords
    'Response.Write(rsAnswers(i))
    allstates=split(rsAnswers(i),",")
    maxcounter=ubound(allstates)
     for z=0 to num-1
   answer1Array(z)=allstates(i)
 next
 rsAnswers.MoveNext
next

Any ideas?