我现在想实现以下这个功能．
Dim rs As Recordset
Set rs = Form6.Adodc7.Recordset
While Not rs.EOF

If rs.Fields("难度") = "易" Then
DataGrid7.SelBookmarks.Add rs.Bookmark
End If
rs.MoveNext
Wend

以上程序是将rs作为一个只含有＂易＂的内容表，然后，我想将rs付给DataGrid7，让DataGrid7显示rs的内容，请教各位，我下面的程序应该怎么编写？
我开始写了几个都没成功，比如set rs=datagrid7.datasource
现在急需解决这个问题，请大家不吝赐教．先谢过了！

Dim rs As Recordset
Set rs = Form6.Adodc7.Recordset
While Not rs.EOF

If rs.Fields("难度") = "易" Then
DataGrid7.SelBookmarks.Add rs.Bookmark
End If
rs.MoveNext
Wend

这个程序可以将表里的符合＂易＂条件的行选出来，付给rs这个集，现在的问题是怎么将rs这个集里的内容在表里显示出来？
哪位高手指点一下啊