Fejl i Server.CreateObject

Hejsa jeg kan ikke få adgang til min DB
Jeg får en fejl i 1. linie

<%
Set Conn = Server.CreateObject(\"ADODB.connection\")
conn.Open \"DBQ=\"& Server.MapPath(\"db1.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"\'


strSQL = "Select * from Person"
Set rs = Conn.Execute(strSQL)
Do
Response.Write rs("Fornavn") & "<br>"
rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>