connection der ikke helt vil

hej jeg skal lave det her script om fra en access db til min mysql... men den vil ikke...

hmm ja men hvordan får jeg den til at virke med mysql db ?

<%@ Language=VBScript %>
<%
dim Cn,Rs

SQLserveradr="localhost" 
SQLdatabase="x_dk"
SQLlogin="x_dk"
SQLpassword=""
Set Cn = Server.CreateObject("ADODB.Connection")
set Rs=server.createobject("ADODB.recordset")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr





Rs.open "select * from pris",Cn,1,3
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=Enquiry_List.xls"
if Rs.eof <> true then
response.write "<table border=1>"
while not Rs.eof
response.write "<tr><td>" & Rs.fields("pris") & "</td><td>" &

Rs.fields("pris") & "</td><td>" & Rs.fields("pris") & "</td><td>" & Rs.fields("pris") &

"</td></tr>"
Rs.movenext
wend
response.write "</table>"
end if
set rs=nothing
Cn.close
%>