How to I rearrange this so that only distance less than or equal to 25 are displayed?
For i = 1 to 20
Display(rs)
rs.MoveNext
If rs.Eof Then Exit For
If rs("distance")>25 Then Exit For
Next