data report的function控件

Question

我在窗体的“打印”按钮click事件里代码如下，可以实现报表的打印，但是我想再加一个function控件对item(3)的字段求和，总是说field为空，不知道该如何实现，谢谢
'rptZCZW是data report的名字
Call TreeView1_Click
Set rptZCZW.DataSource = rsprint.DataSource  'rsprint是从ado控件传过来的记录集
With rptZCZW.Sections("Section1").Controls
     For i = 1 To .Count
         If TypeOf .Item(i) Is RptTextBox Then
             .Item(i).DataMember = ""
             .Item(i).DataField = rsprint.Fields(i).Name
         End If
     Next i
End With