DSN forbindelse -> Access

Nogle som kan hjælpe mig med at lave denne om til en DSN forbindelse

<%
Set conn = Server.CreateObject("ADODB.Connection")
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("counts.mdb")
conn.open connString
Set rs =  Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM Counts WHERE Id=" & Request.QueryString("Id")
rs.open sql, conn, 1, 2
rs("count") = rs("count") + 1
rs.update
Response.Redirect rs("Url")
%>