FOR NEXT 有关问题

FOR NEXT 问题。
数据库 TB
字段 AAA
数据 001
    002
    003
    004
    007
    010

如何在单击cmdTest的时候，txtC里面的结果是 005 006 008 009
[解决办法]
在库中建立一个与 TB 结构相同的临时表，如 temp。将 temp 先填充完整的数据（例如 '001' 至 '999'）：

Set rs = cn.Execute("SELECT AAA FROM temp WHERE AAA Not In (SELECT AAA FROM TB) AND AAA < (SELECT Max(AAA) FROM TB))

Text1 = ""
Do Until rs.EOF
    Text1 = Text1 & rs!AAA & " "
Loop