Uendelig løkke

Jeg har et lile problem med en uendelig løkke, der bliver ved med at være der.
Jeg har en tabel med en liste over kategorier. Hver kategori har et "id", et "name" og en "parent". I øjeblikket er der kun to poster i tabellen.
Den første post har "id"=1, name="test" og "parent"=999999
Den anden post har "id"=2, name="test2" og "parent"=1

Hvorfor kommer jeg så ind i en uendelig løkke, når jeg kører følgende med intCurrent=2 ???????

      while not intCurrent = 999999
        objRS.moveFirst
        While Not objRS.EOF
          if objRS("id") = intCurrent then
            intCurrent = objRS("parent")
            Redim Preserve arrPath(intCount+1)
            arrPath(intCount) = objRS("name")
            intCount= intCount + 1
          end if
          objRS.MoveNext
        Wend
      wend