VB报表问题：如何根据参数显示对应的报表，后台是access

Question

窗体是一个文本框(供用户输入学号)，和一个commmand（点击后出现对应的报表）
在报表设计器里已经把格式弄好了，label啊，text啊都放好了。代码如下：
Private Sub Command4_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCnn As String
strCnn = "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\Student.mdb" & ";Persist Security Info=True"
cn.Open strCnn
rs.Open "select*  from 查询2 where serial = '" & Text1.Text & "'", cn, adOpenKeyset, adLockPessimistic
With datapeport1
Set .DataSource = rs
.Sections("section6").Controls.Item("text1").DataMember = rs
.Sections("section6").Controls.Item("text1").DataField = 学生信息表.NameEnd With
DataReport1.Show
End Sub
代码有什么问题？报表本身的datasource,datamember还需要再手动设置吗

Answer 1

报什么错？
注释掉.Sections("section6").Controls.Item("text1").DataMember = rs 试试
DataMember这个属性应该是分组时才设置吧？

Answer 2

学生信息表.Name应该写成rs的一个字段的名称，比如“学号”：
.Sections("section6").Controls.Item("text1").DataField = "学号"