什么不能关闭记录集?

yodong

大家好.下面的函数,如果我加上
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
在gridex控件上只显示一条记录.
我不能关闭记录集.要设置哪个参数呢?

'公共的gridEX控件取记录集函数
Public Function pub_GridEX_record(grid As Object, sqlstr As String) '用法:GridEX对象名,SQL语句)
On Error GoTo aa
Dim grobject As GridEX
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = CurrentProject.Connection
Set grobject = grid.Object
cn.CommandTimeout = 0
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic 'adOpenStatic '
rs.LockType = adLockReadOnly
Set rs = cn.Execute(sqlstr)
Set grobject.ADORecordset = rs
    'rs.Close
    'Set rs = Nothing
    'cn.Close
   ' Set cn = Nothing
bb:
Exit Function
aa:
MsgBox Err.Description, vbInformation, sysstr
Resume bb
End Function

roych

LZ是要显示全部记录吗？
那样应该加上MoveNext方法吧？除此以外，还应该加上Recordcount、或者EOF来判断是否达到最后一条记录，循环执行MoveNext方法才能全部显示记录的。

yodong

我是要显示全部记录,如果我加上
'rs.Close
    'Set rs = Nothing
    'cn.Close
   ' Set cn = Nothing
gridex控件只显示一条记录.
如果我取消
在gridex控件上是可以显示所有的记录的.
但是这样,记录集不关闭.会浪费资源.

roych

不关数据集关闭的事儿。应该先列出所有数据，然后再关闭记录集。一般情况下应该是这样执行滴：
rst.open sql,currentproject.connection,3,1
do Until rst .EOF（当然，您也可以用For和Recordcount来设置）
rst.fields(1)=""
rst.movenext
Loop
然后才是关闭记录集和清空内存。
……………………