程序不知那里有错？

x1 = F * x0 / (F - W1)
x2 = F * x0 / (F - W1 - W2)
10 x3 = xn
'由各效的二次蒸汽压力，从手册中可以查得相应的二次蒸汽的温度和气化潜热列于下表中。

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 press, temper, heat from water where press<=" & Pp1 & " order by press desc", conn, adOpenKeyset, adLockPessimistic
Pp11 = rst(0)
If Pp1 = Pp11 Then
Tp1 = rst(1)
hp1 = rst(2)
rst.Close
Else
Tp11 = rst(1)
hp11 = rst(2)
rst.Close
rst.Open "select top 1 press, temper, heat from water where press>" & Pp1 & " order by press asc ", conn, adOpenKeyset, adLockPessimistic
Pp12 = rst(0)
Tp12 = rst(1)
hp12 = rst(2)
rst.Close
Tp1 = (Pp1 - Pp11) * (Tp12 - Tp11) / (Pp12 - Pp11) + Tp11
hp1 = (Pp1 - Pp11) * (hp12 - hp11) / (Pp12 - Pp11) + hp11
End If

if x1<x2 then goto 10

k = 1 + 0.142 * x1
b = 150.75 * x1 * x1 - 2.71 * x1
tA1 = k * Tp1 + b

上面有何错？

程序运行显打开数据无法运行方法