[VB6] Recordset disconnesso in ADO

[GianCN]

Ho bisogno di aiuto...
Ho sviluppato una classe in VB6 che utilizza un ADODB.Recordset

Vorrei chiamare la classe passando la select e la stringa di connessione ed avere come ritorno un Recordset disconnesso... ma non ci riesco !!!!

La mia classe fa la seguente cosa :

Public Function RecordsetOpen(ByVal strSQL As String, ByVal strConnessione As String) As ADODB.Recordset
dim DBConn As ADODB.Connection
Dim rstTemp As ADODB.Recordset

Set DBConn = New ADODB.Connection
DBConn.Open strConnessione

Set rstTemp = New ADODB.Recordset
rstTemp.Open strSQL, DBConn, adOpenDynamic, adLockOptimistic

Set RecordsetOpen = rstTemp

rstTemp.Close
Set rstTemp = Nothing

DBConn.Close
Set DBConn = Nothing

end function


La funzione lavora correttamente ma quendo mi ritorna il recordset
e provo ad utilizzarlo (rs.movenext esempio) mi dice che l'operazione non è consentita se il recordset è chiuso...

Grazie