asp中如何连接access数据库？

Dim conn
Dim DSN
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source=" & Server.MapPath("数据库所在相对路径及数据库名")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open DSN