select og vbscript

Hvordan udskriver jeg alle records i en db med vbscript. Jeg har prøvet denne her, men jeg får en fejl:
<SCRIPT LANGUAGE="vbscript">
    connectionString = "Driver={mySQL ODBC 3.51 Driver};" & _
                    "Server=xxxx;" & _
                    "Port=3306;" & _
                    "Option=131072;" & _
                    "Stmt=;" & _
                    "Database=xxxx;" & _
                    "Uid=xxx;" & _
                    "Pwd=xxxx"
  set Conn = Wscript.CreateObject("ADODB.Connection")
  Conn.Open connectionString
   
   
    SQLstmt = "Select * FROM dom"
    Set rs = Conn.Execute(SQLstmt)
    if Not rs.EOF Then
    do while Not rs.EOF
    document.write rs("domain")
               
            rs.movenext
            loop
            else
            End If   
</SCRIPT>

ved denne linie: set Conn = Wscript.CreateObject("ADODB.Connection") hvorfor det