程序不知那里有错？

Question

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  上面有何错？程序运行显打开数据有问题！！如果执行循环的话，数据库conn是否需要close

Answer 1

建议你使用多个Recordset 试试

Answer 2

你的数据库是Access的，用DAO进行操作可能更方便，也不会出现这样的问题。