Ciao problema :

ho un programma che non si chiude da solo con il comando unload e ho individuato il motivo

In una funzione gli passo io un RecordSet pieno cosi'

codice:
passaggio

                AS400Rs.Open
                strRoot = bRoot & Format(frmAvvio.lblData.Caption, "mmdd") & "\" & bDate & "\" & a(x) & Dstr & "D.pdf"
                bAnswer = ExportPDF(AS400Rs, strRoot, "D")
                DoEvents
                AS400Rs.Close


Function ExportXLS(ByVal objRS As ADODB.Recordset, ByVal Root As String, ByVal bType As String) As Boolean

Cosa faccio ? Lo chiudo e lo svuoto ogni volta nella function?