希望给出完整的程序以及解释

Question

我在access中建了一个数据库，里面只有一张表，表中也只有3个字段(即压力，温度，密度)；表名为water,access 数据库名字也为water,数据库放在程序目录下，是按照压力有小到大存放的
压力P 温度T 密度r
10 15 3.2
20 25 3.9
30 14 4.1由对话框输入压力P的值，然后在数据库中找到第一个大于压力P得值，以及其对应的温度T，和密度T，(并将温度值给Tp1,密度值给rp1)
然后需要访问压力p前面压力下对应的温度和密度，并将温度值给Tp2,密度值给rp2最后利用这两个压力下对应的温度和密度进行计算！！比如：输入P=15,首先我可以找到P=20对应的温度和密度，分别辐给变量Tp1和rp1然后找到P=20前面的压力情况，即p=10的温度和密度，分别辐给变量Tp2和rp2请懂得朋友帮忙在上面程序基础上写出程序应该如何谢程序？希望能给出完整程序
Private Sub Command1_Click()End Sub麻烦大家

Answer 1

Private Sub Command1_Click()   dim conn as New ADODB.Connection
Dim rst as New ADODB.Recordset
     conn.Open "provider=microsoft.jet.oledb.4.0;" _
     & "data source=" & App.Path & "\water.mdb;" & "persist security info=false"rst.open "select top 1 压力P, 温度T, 密度r from water where 压力p>=" & p & " order by 压力P desc ",conn, adOpenKeyset, adLockPessimistic
tp1=rst(1)
rp1=rst(2)rst.open "select top 1 压力P, 温度T, 密度r from water where 压力p<=" & p & " order by 压力P asc ",conn, adOpenKeyset, adLockPessimistic
tp2=rst(1)
rp2=rst(2)End Sub