Esta es la que he estado probando, los errores que salen son de sintaxis, ya que me dice que se espera un final de instrucción, desde ya gracias
<%
Dim conn As New ADODB.Connection
Dim cadena_DSN As String
cadena_DSN = "driver={SQL Server};server=prime;" & _
"database=bd;uid=sa;pwd=secret"
conn.Open cadena_DSN
%>