Hente auto-id

du kan cel gøre det ved at hente den næst id i db på denne måde:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("links.mdb")
Conn.Open DSN

SQL = "SELECT * FROM [links]" ' Uden []

Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open SQL, Conn, 3,3

Rs.MoveLast
intLast = Rs("ID") + 1

Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

<%= intlast %>

min kode nu:
-----
Sql = "INSERT INTO " & db & " (head, body,cancel, dato, num) VALUES ('" & head & "','" & body & "','0','" & Date & "','" & num & "')"
    Set Record =  Con.Execute(Sql)
---

og jeg kan ikke bare bruge Record("id") men kan jeg bruge noget tilsvarende??

Har løst det

LUKKET