i=1
While i<11 And Not rs.EOF



i=i+1
rs.MoveNext : Wend