Problemmer med movenext

Hej

Jeg har et problem med en movenext hvor den går fra ID = 750 til ID = 788 istedet for ID = 751. Tabellen har ID som primærnøgle og typen på feltet ID er autonummerering.
Håber der er en der kan hjælpe mig.

mvh Flemming

Her er koden.

Set db = CurrentDb
Set updatedate = db.OpenRecordset("TabelNavn")

updatedate.MoveFirst
While Not updatedate.EOF
    If Left(updatedate.Fields!ipadresse, 3) = "200" Then
        tempdate = updatedate.Fields!ipadresse
    Else
        If Not (Left(updatedate.Fields!Time, 1) = "#") Then
          updatedate.edit
          updatedate.Fields!Date = tempdate
          updatedate.Update
        End If
    End If
    updatedate.MoveNext
Wend