> NNB(i) = hrs("NO")
の下に hrs.MoveNextがないと同じレコードでずっとループするので
配列の範囲を超えてしまいエラーとなってしまいます。
最初のエラーとはまったく関係ありません。
またるきおさんが指摘されているようにレコード数が配列の要素数を超えてしまうと
結局同じエラーが発生することになります。これに対する処理も追加された方が良いかと
思います。