まったくうまくいけません。
 "SELECT 受け取った人.[年], 受け取った人.[NO] FROM 受け取った人 WHERE (((受け取った人.年)=" & Forms![年賀メール].[m年] & "));"
これであっていますか。
実行してみたら

   hrs.MoveFirst

   i = 0

Do Until hrs.EOF

   i = i + 1

   n(i) = hrs("年")

  NNB(i) = hrs("NO")

Loop

すぐにレコードが1件しかないのに「インデックス有効範囲がありません」って出ます。
教えてください