如何在程序中引用水晶報表(RPT文件)中的文本字段？

Question

把水晶報表放在項目中這樣可以引用
    Dim Report As New CUM00001_R
    Report.txtCusName.settext="CustomerName"   但是我用的是RPT文件，如何實現上面的功能？
    如
    Dim CRX As New CRAXDRT.Application
    Dim Report As New CRAXDRT.Report
    Set Report = CRX.OpenReport("C:\CUM00001_R.rpt")

Answer 1

Dim  CryApp  As  New  CRAXDDRT.Application  
       Dim  Report  As  CRAXDDRT.Report  
         
       Dim  strCnn  As  String  
       Set  Report  =  CryApp.OpenReport(App.Path  &  "\report2.rpt")  
 
       Dim  cnn1  As  New  ADODB.Connection  
       Dim  adoRS  As  New  ADODB.Recordset  
         
       strCnn  =  "Provider=sqloledb;Data  Source=abrams;Initial  Catalog=salestesttmp;User  Id=sa;Password=test;"  
       cnn1.Open  strCnn  
         
       adoRS.Open  "select  top  10  *  from  answers",  cnn1,  adOpenDynamic,  adLockBatchOptimistic  
       Report.Database.SetDataSource  adoRS  
 
       Screen.MousePointer  =  vbHourglass  
       CRViewer91.ReportSource  =  Report  
       CRViewer91.ViewReport  
       Screen.MousePointer  =  vbDefault  

Answer 2

非常感謝daisy8675(莫依) 但是我是想
用下面的方法  
    Dim CRX As New CRAXDRT.Application
    Dim Report As New CRAXDRT.Report
    Set Report = CRX.OpenReport("C:\CUM00001_R.rpt")
    Report.Textbox  如可實現........來實現
    Dim Report As New CUM00001_R
    Report.txtCusName.settext="CustomerName"    上面打開RPT文件的方法，如可實現這行代碼
    在VB中引用Report 中的文本框。