HENTER IKKE UT ID`en TIL SISTE REGISTRERTE POST I DATABASEN

Jeg skal hente ut ID`en til siste post i databasen. Har prøvd med adOpenForwardOnly, adOpenDynamic og Resync.

Hvis jeg prøver Resync så kommer feilmeldingen:
Current provider does not support refreshing underlying values

Koden er:

<%
Set adoRS=Server.CreateObject("ADODB.Recordset")
adoRS.CursorLocation = 2 ' adUseServer
adoRS.CursorType = 3 ' adOpenDynamic
'adoRS.CursorType = 0 ' adOpenForwardOnly
adoRS.LockType = 3 ' adLockOptimistic
strSQL = "SELECT BID,BFilNavn,BFilSize,BTittel,BKategori,BUnderKategori,BBeskrivelse,BStikkord,BFotograf,BLeverandor,BTilattBruktTil,BSpesielleBetingelser,BTidligereBruktTil,BOrginal,BGodkjentAvBruker,BLagtInnDato,BAktiv,BVisninger,BUploadTime  FROM tblFPFBilder"
adoRS.Open strSQL, strConn, , , &H0001 ' adCmdText
       
'On error resume next     
adoRS.AddNew
adoRS("BFilNavn") = FilNavn
adoRS("BFilSize") = strFileSize
adoRS("BTittel") = upload.Form("tittel")
adoRS("BKategori") = Cint(upload.Form("kategori"))
adoRS("BunderKategori") = upload.Form("subkategori")
adoRS("BBeskrivelse") = upload.Form("beskrivelse")
adoRS("BStikkord") = upload.Form("stikkord")
adoRS("BFotograf") = upload.Form("fotograf")
adoRS("BLeverandor") = intLID
adoRS("BTilattBruktTil") = upload.Form("tilattbrukttil")
adoRS("BSpesielleBetingelser") = upload.Form("spesiellebetingelser")
adoRS("BTidligereBruktTil") = upload.Form("benyttettidligere")
adoRS("BOrginal") = upload.Form("Orginal")
adoRS("BGodkjentAvBruker") = "NEI"
adoRS("BLagtInnDato") = now()
adoRS("BAktiv") = "NEI"
adoRS("BVisninger") = 0
adoRS("BUploadTime") = Upload.TotalSeconds
adoRS.Update
adoRs.Resync

' Hente ut bildeID
Dim intBID
intBID = adoRS("BID")

adoRs.Close
set adoRs = nothing

adoCn.Close
set adoCn = nothing

Response.Write("BID er: " & intBID)
%>