Maybe like so:
Manipulate[data[n, "Rec"], {{n, 1, Keys[data][1, 1]}, MapThread[Rule, {Range[4], Normal@data[All, "userId"]}]}]
Thanks a lot. This works perfectly.
