帮助分析

Question

Private Sub Command1_Click()
Dim CRY As CRAXDRT.Report
  Dim CRYAT As CRAXDRT.Application
  Set CRYAT = New CRAXDRT.Application
  Set CRY = CRYAT.OpenReport(reportl.rpt)
  Form1.CRViewer91.ReportSource = CRY
  Form1.CRViewer91.ViewReport
End Sub已经加载
 CRYSTAL REPORTS 9 ACTIVEX DESIGNER RUN TIME LIBRARY
          CRYSTAL REPORTS VIEWER CONTROL9提示示：
错误424,要求对象。