Chiusura connessione ado non funziona

[abellos]

ho provato ma non funziona, quello che faccio e' questo

'conn = CreaConnDB(drvDBAccess, "../../db/log.mdb" ,0,0,0,0,0, dbCharsetVuoto)


conn = CreaConnDB(drvDBMysql, "log" ,3306,"localhost","root","","", dbCharsetUtf8)

SQL = "SELECT * FROM archivi WHERE codArch = -1 or codArch =103"


set RS = server.CreateObject("ADODB.Recordset")
RS.open SQL, Conn


while not RS.EOF
    'response.write RS("scatola") & "<br>"
	response.write RS("descrizione") & "<br>"& vbCrLf
    RS.movenext
wend
RS.close
set RS = nothing


Response.Write VarType(conn)


conn.close
'conn = Nothing
'call ChiudiConnDB(conn)

se uso conn.close mi restituisce questo errore sia con access che con mysql Necessario oggetto: 'Driver={Microsoft Ac' o Necessario oggetto: 'DRIVER={MySQL ODBC 8'
sembra che qualcosa mi chiuda la connessione prima del comando close

[optime]

hai provato con

SET conn = CreaConnDB(.....

[abellos]

Buongiorno Optime,
grazie della pazienza e dell'aiuto, si avevo gia' provato con set ma mi va in errore sull'apertura del recordset

RS.open SQL, Conn

con errore Connessione chiusa o non valida in questo contesto. Impossibile utilizzarla per eseguire l'operazione.

a questo punto sembra impossibile utilizzare una function che passa un oggetto in output

[abellos]

e niente ho trasformato la function in sub e anche qui mi dava errore poi ho dichiarato la variabile

Dim conn

e con le sub funziona, credo sia impossibile farlo con le function

comunque grazie dell'assistenza Optime

[optime]