I get an error at this line in the _filldata (Array dimension invalid)

._aData[nArrRow, 3] = cRecordId

>I have created another control for my small suite.
>
>I would appreciate any input.
>
>The file is here. Please run the form Demo
>
>Thanks