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