datareport 中关于 text的问题

Question

我在报表中不想用dateenvioroment,  想动态的对text进行赋值
我的代码如下：
dim rs as new adodb.recordset
rs.open "selet filed1,field2 from tablename",cn
set datareport.datesource=rs
datareport.sections(2).controls("text1").datafield=rs!field1
 显示如下的错误
datafield'fied1'未找到，请高手赐教

Answer 1

试试
With DataReport1
  .Sections(3).Controls("Text1").DataField = "字段1"
  .Sections(3).Controls("Text2").DataField = "字段2"
  .Sections(3).Controls("Text3").DataField = "字段3"
End With

Answer 2

datareport.sections(2).controls("text1").datafield=rs.Fields.Item(0).Name
datareport.sections(2).controls("text2").datafield=rs.Fields.Item(10).Name
datareport.sections(2).controls("text3").datafield=rs.Fields.Item(2).Name