Set rs = nothing
Set conobject = Server.CreateObject("ADODB.Connection")
db="example.mdb"
DBPath = Server.MapPath(db)
conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
Set rs = Server.createobject("adodb.recordset")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath(db)
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
……