codice:
   Public Function RestituisciNumeroArticoliInUgualart(codarta As String) As Double
        Dim rs As New ADODB.Recordset
           
   strsql = "SELECT count(*) as numero FROM ugualart WHERE ugualart.codarta ='" & codarta & "'"
       rs.Open strsql, "dsn=Magazzino"

       RestituisciNumeroArticoliInUgualart = rs("numero")
       
       rs.Close
       Set rs = Nothing
   End Function
questa è una delle tante funzioni tipo
come vedi dichiaro il recordset e alla fine libero la memoria

l'unico dubbio che mi rimane è la connessione
io qui gli passo direttametne una stringa di connessione invece di un oggetto connection
ma leggendo msdn a quanto pare nn dovrebbe essere un problema per la memoria

oppure le variabili che valorizzo nella generale..
possono essere un problema?