Fejl ved connect til database

http://www.eksperten.dk/spm/136144 var der en der hjalp med adgangen til en database, problemet er bare at hvis jeg kører koden så dør hele systemet (NT serveren - ikke AS/400)

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

\'Conn.Open \"DSN=testAS400;UID=administrator;PASSWORD=admin;\"

sql = \"SELECT TOP 10 * FROM testtabel\"