hvad gør jeg forkert

Hej jeg sider og vil lave et system der skal oprette konto på min mysql server. men hvad er der forker her ?

Min kode
<%
On Error Resume Next
Set Conn = Server.Createobject("ADODB.Connection")
conn.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=localhost; Database=mysql; Uid=****; PWD=************;"

SerDb = "demo"
Serus = "demo"
Serps = "demo"

conn.execute("CREATE DATABASE `" & SerDb & "`")
conn.execute("GRANT USAGE ON * . * TO '" & Serus & "'@'%' IDENTIFIED BY '" & Serps & "' WITH MAX_QUERIES_PER_HOUR 0 MAX_CONNECTIONS_PER_HOUR 0 MAX_UPDATES_PER_HOUR 0")
conn.execute("GRANT SELECT , INSERT , UPDATE , DELETE , CREATE , DROP , INDEX , ALTER ON `" & SerDb & "` . * TO '" & Serus & "'@'%'")
conn.execute("Flush Privileges")

If Err.Number > 0 Then
Response.Write("<h3>Følgende fejl opstod, da siden blev kørt:</h3>")
Response.Write("<b>Siden hvor fejlen opstod:</b> " & Err.File & "<br>")
Response.Write("<b>Nummeret på linien hvor fejlen opstod:</b> " & Err.Line & "<br>")
Response.Write("<b>Fejlens nummer:</b> " & Err.Number & "<br>")
Response.Write("<b>Beskrivelse af fejlen:</b> " & Err.Description & "<br>")
Response.Write("<b>Fejlen opstod i følgende del af koden:</b> " & Err.Source & "<br>")
Err.Clear
End If

%>

Jeg får denne fejl

Følgende fejl opstod, da siden blev kørt:
Fejlens nummer: 438
Beskrivelse af fejlen: Object doesn't support this property or method
Fejlen opstod i følgende del af koden: Microsoft VBScript runtime error