è possibile fare una select senza il ciclo
While Not rec.EOF.....

rec.MoveNext
Wend
rec.close.........