ACCESS 数据查询问题 在线等 - Web 开发 / ASP

下面是数据
ID Money PID
1 50  
2 40 1
3 30 1
4 10 1
5 70 1
6 50 2
7 50 1
8 20 1
9 10 3

ID 为用户
Money 为用户金额
PID 为ID用户推荐

要查询 PID 编号 1 , Money值大于 80后的 ID 编号
简单说的就是 在PID 里查询为1的用户，他们的Money加一起后大于或等于80，然后求下面的那个ID值。

正确结果应该是 ID5

请问查询语句该怎么写呢？

高手请指教

---

HTML code:

<%
Dim sql,val
sql="select * from tablename where PID=1 order by [ID]"
Set rs=conn.execute(sql)
val=0
Do While Not rs.eof And val<80
val=val+rs("Money")
rs.movenext
Loop
If val>=80 And Not rs.eof Then
response.write rs("ID")
Else
response.write "总价不到80或者超过80后没有下一个了"
End If
%>

---

SQL code:
select first(Id)
from tbl as a
where dsum("M