connection problem!

Detta har jag inte sett förr DSN roger1....hur kan jag skriva för att connecta till ewebcity..detta funkar inte:

<%
Fagel = Request.Querystring(\"Fagel\")

Set MinCon = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
MinCon.Open \"DSN=roger1;UID=;PWD=\"
SQL = \"SELECT * From Fåglar WHERE Fågel = \'\" & Fagel & \"\'\"

rs.Open SQL, MinCon


If rs(\"Flyttfågel\") Then
flytt = \"Ja\"
Else
flytt = \"Nej\"
End If

%>