How to disconnect the recordset that has been upgraded to .Net

Hi,

I have a function "FetchRecset" that just populates the recordset when the SQL string or the stored proc name is passed and it looks like this in VB6.0.

Public Function FetchDiscRecSet(CmdSQL As String, _
rsResultSet As ADODB.Recordset, _
Optional Updateable As Boolean = False) As ErrInfo

Dim cnConnection As ADODB.Connection
Dim rsTemp As ADODB.Recordset
Dim strConnectString As String

'Initialize connection object
Set cnConnection = New ADODB.Connection
cnConnection.CommandTimeout = c_Timeout
cnConnection.Open gc_ConnectionString

Set rsTemp = New ADODB.Recordset
With rsTemp
.ActiveConnection = cnConnection
.CursorType = adOpenStatic
.CursorLocation = adUseClient
If Updateable Then
.LockType = adLockBatchOptimistic
End If
.Source = CmdSQL
.Open
.ActiveConnection = Nothing
End With

Set rsResultSet = rsTemp
Set cnConnection = Nothing

Set rsTemp = Nothing
------
After I upgrade the project to .Net it looks like this

--------

Dim cnConnection As ADODB.Connection

Dim rsTemp As ADODB.Recordset

Dim strConnectString As String

'Initialize connection object

cnConnection = New ADODB.Connection

cnConnection.CommandTimeout = c_Timeout

cnConnection.Open(gc_ConnectionString)

rsTemp = New ADODB.Recordset

With rsTemp

.let_ActiveConnection(cnConnection)

.CursorType = ADODB.CursorTypeEnum.adOpenStatic

.CursorLocation = ADODB.CursorLocationEnum.adUseClient

If Updateable Then

.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic

End If

.let_Source(CmdSQL)

.Open()

'UPGRADE_NOTE: Object rsTemp.ActiveConnection may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'

.let_ActiveConnection(Nothing)

End With

rsResultSet = rsTemp

'UPGRADE_NOTE: Object cnConnection may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'

cnConnection = Nothing