title: The CrystalReports cannnot be displayed
body: <p>I'm new to CrystalReports and VB6, but I was asked to maintenance the system. We used VB6 and Crystal Reports XI R2, and the crystal rpeort is not displayed, it just flashed. The code is like this:</p>
  
  <pre><code>wk_where = ""
  wk_where = wk_where &amp; "{GNS_EXCEPTION_TRAN.TRANSACTION_CODE} = '" + CST_OCA_PLUS + "' "
  
  wk_where = wk_where &amp; "{GNS_EXCEPTION_TRAN.TRANSACTION_CODE} = '" + CST_OCA_PLUS + "' "
  wk_where = wk_where &amp; "AND YEAR({GNS_EXCEPTION_TRAN.CREATE_DATE}) = " +     Format(GetSYSDATE, "YYYY")
  wk_where = wk_where &amp; " AND MONTH({GNS_EXCEPTION_TRAN.CREATE_DATE}) = " +       Format(GetSYSDATE, "MM")
  wk_where = wk_where &amp; " AND DAY({GNS_EXCEPTION_TRAN.CREATE_DATE}) = " + Format(GetSYSDATE, "DD")
  
  With Report_Stock_Increase
      .ReportFileName = REPORT_DIR + "Stock_Increase_Proof.rpt"
      'DB CONNECT
      .Connect = CONNECT_STR
  
      'WHERE SET
      .SelectionFormula = wk_where
  
      'PARAMETER
      wk_where = "Date : " + Format(GetSYSDATE, "MM/DD/YYYY")
      .Formulas(2) = "Print_Date = '" + wk_where + "'"
  
  
      .ReportTitle = "** STOCK INCREASE  PROOF LIST **"
      .WindowTitle = "STOCK INCREASE PROOF LIST"
  
      .WindowState = crptMaximized
  
      If REPORT_PVIEW = True Then
          .Destination = crptToWindow
      Else
          .Destination = crptToPrinter
      End If
  
      'Preview
      .PrintReport
  </code></pre>
  
  <p>Could someone help me?Thanks.</p>