在使用shape 指令後如何完全的close recordset 元件??(編號：6012)

請教一下各位高手：
我在程式中利用到了一段shape 指令 Ex:
SHAPE {select XXXXXX} AS ParentCMD APPEND ({select * from xxxxxx } AS ChildCMD RELATE buyer_code TO trade_buyer_code) AS ChildCMD
然後set datagrid1.datasource = adodc1.recordset
並　Set DataGrid2.DataSource = Adodc1.Recordset
("ChildCMD").UnderlyingValue

但當我在利用此recordset去開啟另一段 SQL 時，在下了 adodc1.recordset.close 後，再下 adodc1.recordset open (SQL statement)時，VB 卻出現了"此物件已開啟"的警告訊息..
請教各位高手，要如何將 adodc1.recordset("childCMD")close 掉?
先謝謝各位的解答...