Dim  bb  As  New  DataTable  
               Dim  str  As  String  
               str  =  "select  chengji.*  from  chengji"  
               Dim  mydc  As  New  OleDbDataAdapter(str,  mycon)  
               mydc.Fill(bb)  
               Dim  aa  As  New  CrystalReport2  
               aa.SetDataSource(bb)  
               CrystalReportViewer1.ReportSource  =  aa  
通过以上代码将报表数据显示出来，可是，每次通过按钮调出窗体时，  
第一次又数据显示，以后就不显示数据报错。  其中aa.SetDataSource(bb)  
报错。敬请高人指点。