grandioso!!! ora va...
per chiudere la connessione basta che inserisca

dcnDB.Close
Set dcnDB = nothing

prima del tag </html>