AdoRs Recordset

    Dim AdoConnect As New ADODB.Connection
    Dim AdoRs As New ADODB.Recordset
            AdoRs.Open("Select * from [O_作用效应标准值] where [荷载编号]=" & id & " order by [构件区分], [截面编号]", , ADODB.CursorTypeEnum.adOpenStatic)
之后，要做AdoRs.Close()
前面的字段，取出后，要赋给dyId,gjQf，以便做后面的查询
    AdoRs.Open("Select * from [M_单元坐标] where [单元号]=" & dyId & "and [单元类型]=" & gjQf)
                kjLZi = AdoRs.Fields("行").Value
                kjLZj = AdoRs.Fields("列").Value
但之后， AdoRs.MoveNext()，之后，原先的纪录集就没有了，我可否再设置一个Recordset,
Dim AdoRs1 As New ADODB.Recordset，有什么好办法，请大侠赐教。
--------------------编程问答-------------------- sf
jf~~~~~~~~~

补充：.NET技术 ,  VB.NET