简单asp连接access数据库代码

Set rs = nothing
Set conobject = ServerCreateObject("ADODBConnection")
db="examplemdb"
DBPath = ServerMapPath(db)
conobjectOpen "Driver={Microsoft Access Driver (*mdb)};DBQ="&DBPath
Set rs = Servercreateobject("adodbrecordset")

Set conn = ServerCreateObject("ADODBConnection")
DBPath = ServerMapPath(db)
connOpen "Driver={Microsoft Access Driver (*mdb)};DBQ="&DBPath