datareport控件中怎么没有数据啊？

Question

Dim db As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\vbb\DataBase\统计.MDB;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.Open "select * from 专业信息", db, , , adCmdText
Set DataReport1.DataSource = rs
DataReport1.Refresh
DataReport1.Show
End Sub显示时，datareport控件中怎么没有数据啊？

Answer 1

添加textbox到datareport1,并设置datasource属性为rs的相应字段