hente nyeste ID

Hvordan gør jeg det? Dette er blevet afprøvet

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../database.mdb")
Dim opslag
    SQLstringK="SELECT MAX(id) FROM kunde"
    SET opslag=Connection.Execute(SQLstringK)
    response.write(opslag("id"))

Det virkede dog ikke. Skal lige siges lige før denne connection har jeg indsat det nye data. Det er dennes id jeg gerne vil have udskrevet