...e questa è la mia, è giusta?

dim connessione
set connessione= server.CreateObject("ADODB.Connection")
dim StringaDiConnessione
StringaDiConnessione="DSN=porsche"
connessione.open StringaDiConnessione