怎么将COMBOBOX的值传递给VB自带的报表

Private Sub DataReport_Initialize()

    Set DataReport1.Sections(3).Controls(2).Caption= Form1.Combo1.Text

End Sub

补充：VB ,  数据库(包含打印，安装，报表)

上一个：vb6 类不支持自动化或不支持期望的接口
下一个：我刚用VB.net 2005， 发现有一些代码删除了，运行时好像没有实时更新。