Originariamente inviato da xegallo

la metti in una routine che si chiama sub Main() e fai partire il progetto da lì
un altro piccolo problema...
ho scritto questa brevissima sub per evitare ogni volta di dover distruggere gli oggetti

codice:
Public Sub Pulisci(obj As Object)
    If TypeName(obj) = "adodb.connection" Or TypeName(obj) = "adodb.recordset" Then
        obj.Close
        Set obj = Nothing
    End If
End Sub
Funziona con il recordset,mentre con la connessione mi da errore "Type mismatch"...come mai non capisco proprio !