coneccion con mysql

Hola que tal
Estoy tratando de conectarme a una base de datos en mysql
pero me marca el sig error

ADODB.Connection (0x800A0E7A)
Provider cannot be found. It may not be properly installed

el codigo es el siguiente
<%
public cn,rs,provstr
set cn = Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
provstr="Provider=MySQLProv;Data Source=localhost;User Id=q;Password=q"
cn.Open provstr
sqltxt="select * from clientes"
rs.open sqltxt,cn
%>
<%do while not rs.EOF%>
<table>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("nombre")%></td>
<td><%=rs("direccion")%></td>
</tr>
</table>
<%
loop
rs.Close
cn.Close
%>
de antemano muchas gracias
Victor M