求教，一个语句的写法

Question

举例如下：declare @a table(a int not null primary key)
insert into @a values (1)
insert into @a values (2)
insert into @a values (10)
insert into @a values (1000)select c from 
  (select t1.b+t2.b*10+t3.b*100+t4.b*1000  c from
   (select 0 as b union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) t1,
   (select 0 as b union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) t2,
   (select 0 as b union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) t3,
   (select 0 as b union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) t4
) t5
where c>0 and c not in (select a from @a) order by c

Answer 1

DIM I AS LONG 
DIM RS AS ADODB.RECORDSETSET RS=CONN.EXECUTE("SELECT ID FROM YOURTABLE ORDER BY ID") '取出所有ID的值I=1
RS.MOVEFIRST
DO WHILE NOT (RS.EOF OR RS.BOF)
  IF I<>RS("ID") THEN
     MSGBOX"被删除的最小ID号为：" & RS("ID")
     EXIT DO
  ENDIF
  I=I+1
  RS.MOVENEXT
LOOP
SET RS=NOTHING