Dim TextObj As CrystalDecisions.CrystalReports.Engine.TextObject
    TextObj = Cr1.ReportDefinition.ReportObjects.Item("textcon")
    TextObj.Text = “asdfasdf”
cr1为你new的一个报表对象类的实例
item属性为报表里面textbox对象的id