aquí hay ejemplos:
http://www.connectionstrings.com/
o prueba esta conexion CREANDO UN OBJETO conect.
<%
Dim myConn 'CONEXION DE SQL SERVER
set myConn = server.CreateObject("ADODB.Connection")
myConn.Open "Driver={mySQL};Server=localhost;Option=16834;Data base=mydatabase;"
%>