Tilbage til starten af loope

Hey, jeg har en if i et loop, den skal movenext men også gå til starten af loope igen!

If oRS.EOF Then
Response.Write "tom"
Else
i = 0
Do while not oRS.EOF

  if inStr(1, ","&n,","&oRS("userid")&",") > 0 Then
  oRS.movenext
  end if 

Response.Write oRS("FirstName")

i = i+1
oRS.MoveNext
loop
End If