Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("Database/Medlemmar.mdb")&""
set Recset= Connect.execute ("SELECT * FROM Medlemmar Where id = "&session("id")&"")
eller:
set connect = server.createobject("adodb.connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("Database/Medlemmar.mdb")&""
set recset = server.createobject("adodb.recordset")
sql = "Select * From Medlemmar Order By id Desc"
recset.open sql, connect, 3, 3