Hente primery key efter en addnew

http://www.opfinderen.dk/sites/?id=13

Hey mm12010,
Det kan godt være at det som står på opfinderen virker, men jeg er ikke lige god nok til at se hvad jeg skal tage fra det for at få mit til  at virker.

Jeg vil godt havde et svar, som rette min kode, så den virker, jeg ville selv tro den virker men det gøre den ikke, den laver en ny, men der kommer ikke noget nar den "Response.Write oRS("ARRID")"

hvilken DB bruger du?

MS Access

Dim oRS, oConn, tbToOpen

Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../db/xxxxx.mdb")
oConn.Open
oRS.Open "tbArrangementer", oConn, 2, 3
oRS.AddNew
oRS("ARRSted").Value = "OST"
oRS.Update
   
Response.Write oRS("ARRID")
oRS.Close

SQL = "Select @@Identity From tbArrangementer"
Set rs = oConn.Execute(SQL)
new_primary_hey = rs(0)

hey mm12010 det virker =), kan du ikke lige skreve noget som svar så du kan få point

:o)