vb 取数据库表中的所有ID

Question

SqlServer数据库中一个表 我想把这个表里的所有值的每一项的ID 然后把ID存在一个集合中 faultmanage是表名 
db.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=courseexamine;Data Source=" + server_name 
  rc.Open "select * from faultmanage ", db, adOpenDynamic, adLockOptimistic 
连接数据库后怎么取表中的所有ID 
谢谢各位帮忙

Answer 1

do while not rs.eof
  rc("id")  'id的值,你看着办,怎么处理,是个右值
  rs.movenext
loop