关于报表的错误！

Question

一大侠给我一段代码！
回复人： lxqlogo0(群子) ( ) 信誉：92  2003-10-23 16:56:00  得分:0 
 Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
Private Sub DataReport_Initialize()
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\成语库.mdb"     objrs.Open "select top 10 chengyu,pinyin from 成语库 ", objcon, 3, 1     Set DataReport1.DataSource = objrs '设置 DataReport 的数据源
'
     '绑定某字段
    DataReport1.Sections(1).Controls("text1").DataField = objrs.Fields(1)
DataReport1.Show 1
End Sub但是
DataReport1.Sections(1).Controls("text1").DataField = objrs.Fields(1)
有错误！
说是下标越界！
请高人指点！
谢谢 ！