ListPlot + Line

How does one combine a ListPlot and a line through two specific points in the same graphic element? I apologize in advance for asking such a simple question.

Thanks,

Dean Sparrow, Mathematica 9

Something like this?

data = Range[1, 10];
lp = ListPlot[data];
line = Graphics[Line[{{0, 6}, {10, 6}}]];
Show[lp, line]

Tim

Thank you very much.