在窗体中有个按钮Cmd1，点击它运行下列代码：
Private Sub Cmd1_Click()
Dim db
Dim rs As Recordset
Dim srtSQL As String
Dim xueke,riqi As string
Set db = CurrentDb
text1.setfocus
xueke=text1.text
strSQL="SELECT 姓名, " & xueke & "
FROM 考试成绩表
WHERE (" & xueke & "> (select " & xueke & " from 考试成绩表 where (姓名='小张') and (时间='201904半期')) and (时间='201904半期'))
ORDER BY " & xueke & " DESC;"
Set rs = db.OpenRecordset(strSQL)
然后，怎么把查询的结果在窗体上显示出来？用哪个控件最好 ？