You can do this:
dataset1 = MapThread[{{#1, #2}, ErrorBar[#3, #4]} &, {x, y, xerror, yerror}] ErrorListPlot[dataset1]
Regards,
Neil