Bom dia Galera!!

Tenho a Seguinte função abaixo que abre o banco, abre um recordset

e seta o retorno como o recordset que foi aberto.

Só que se eu Fechar o banco ou o RecordSet auxiliar

a função nao terorna nada.

Como deixar os dados no RecordSete mesmo depois de fechar o banco

ou depois de matar o recordset auxiliar????

Segue a função:

Public Function ExecutaSELECT(ComandoSQL As String) As ADODB.Recordset
  Call AbreBanco
  Set RsAux = New ADODB.Recordset
  RsDados.Open ComandoSQL, AdoConn, adOpenStatic
  Set ExecutaSELECT = RsAux

  '##########################################
  'Se eu fechar o recordset auxiliar aqui ou fechar o banco não retorna nada
  '##########################################

  'RsAux.Close
  'Set RsAux = Nothing 
  'Call FechaBanco
End Function

Desde já Obrigado!!!