关于LotusScript ODBC的问题!急

[qgfj]

Dim conn As New ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
Call conn.Disconnect()
Set qry=New ODBCQuery
Set result=New ODBCResultSet
If conn.ConnectTo ("test",admin","ooooo") Then
Set qry.Connection=conn
qry.SQL="select a.ch_sort, a.ch_rem2 from iech00h a where a.dp_no='A11100'"
Set result.Query=qry
Call result.Execute()
If Not result.IsResultSetAvailable Then
Msgbox "没有数据!"
Else
Do
result.NextRow
doc.prno=result.GetValue("ch_sort")
(我想在这里再使用result.GetValue("ch_rem2")执行一个查询)可是之前的result不能被Close 应该怎么做啊 急啊 大哥哥们

doc.status="1"
doc.isChecked="1"

Call doc.save(True,True)

Loop Until result.IsEndOfData
End If
If(i>0)Then
Msgbox "更新了"+Cstr(i)+"条信息"
End If

result.Close(DB_CLOSE)
Call conn.Disconnect()'与数据源断开连接
Else
Print "Could not connect to server"
Msgbox "没有连接到数据库!"
End If

[qgfj]

想执行的语句是:
select el_po,el_date from iech00d where el_rem= result.GetValue("ch_rem2") ---
doc.el_po= result.GetValue("el_po")
doc.el_date= result.GetValue("el_date")

[qgfj]

求高手帮忙 就是怎么在查询中再插入查询语句 嵌套着查的那个意思

[qgfj]

兄弟 大哥 高手 老天

[cnscns]

select a.ch_sort, b.el_po, b.el_date from iech00h a, iech00d b where a.dp_no='A11100' and b.el_rem = a.ch_rem2