dim ncnt as integer
 
set rs = db.openrecordset("Select Feld1, Feld2, Feld3, Nummer From" & _
  "Deine_Tabelle")
 
    do while not rs.eof
 
        rs.edit
                     rs!nummer = ncnt + 1
        rs.update
 
        rs.movenext
 
     loop
 
rs.close
set rs = nothing