VB + ACCESS 的数据库查询有关问题

VB + ACCESS 的数据库查询问题
现有ACCESS数据表work：

room work
1 0
1 0
2 3
2 5
1 2

现在，我想列出room字段中所有为1的 work中的数据，并把它输出到text1.text，如何操作？最好提供全部代码！

[解决办法]
sql = "select * from work where room = '1'"

然后再循环输出