主题：请问如何用for each 来遍历所有值为复选框已选中的记录

 各位大侠。

我的表A中有一个字段是复选框字段。
请问如何用for each 来遍历所有值为复选框已选中的记录。

现在我的代码如下：
For Each dr1 As Row In Tables("qgList").Rows("qgYpz").Checked = True

保存代码时提示：表达式的类型为“Boolean”，该类型不是集合类型。