Public CrReport As Object
CrystalReportViewer1.ReportSource = CrReport
Dim Myform As New FrmSuppLedgerPreview
Dim DSPrint As New DSCLedgerPrint
DSPrint.Tables.Clear()
DSPrint.Tables.Add(Print_Detail())
Dim XReport As New CrSLDetail
XReport.SetDataSource(DSPrint)
Myform.CrReport = XReport
Myform.Show(Me)