Hola Beja9094 :)
Descargá e instalá el MyODBC desde el sitio de MySQL.
Después usá esta sintaxis:
<HTML>
<HEAD>
<TITLE>Prueba</TITLE>
</HEAD>
<BODY>
<H1>Conectado a MySQL</H1>
<%
Dim Conn
Dim Rs
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={MySQL};SERVER=localhost;DATABASE=mys ql;UID=root;PASSWORD=passwd"
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection = Conn
Rs.Source = "Select * From user"
Rs.Open
Response.Write "<TABLE><TR><TD>0</TD><TD>1</TD><TD>2</TD><TD>3</TD><TD>4</TD><TD>5</TD><TD>6</TD></TR>"
Do while not RS.EOF
Response.Write "<TR><TD>"&Rs(0)&&qu ot;</TD><TD>"&Rs(1)&"</TD><TD>"&Rs(2)&"</TD><TD>"&Rs(3)&"</TD><TD>"&Rs(4)&"</TD><TD>"&Rs(5)&"</TD><TD>"&Rs(6)&"</TD></TR>"
RS.MoveNext
Loop
Response.Write "</TABLE>"
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
%>
</BODY>
</HTML>
Suerte
