omnummering af kolonne i access

Vil du have et bud på en kørsel eller lign. ?

Ja det ville være dejligt.

Her er en lille kode til det:

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select ID From xyz"
rs.Open strSQL, Conn, 1, 3 ' adOpenKeyset, adLockOptimistic
NytNr = 1
rs.MoveFirst
do while not rs.EOF
  rs("ID") = NytNr
  rs.Update
  NytNr = NytNr + 1
  rs.MoveNext
loop
rs.Close
%>
Hvor ID er det felt du vil give nye numre.

Hej coltau
Tusind tak for svaret. Det virker bare! Undskyld jeg har været så længe om at få det tjekket.
Mvh fjot