Set Report = ReportFile.OpenReport(App.Path & "\Report1.rpt")
Set Rs = New ADODB.Recordset
Conn.Execute ("Drop View View")
Conn.Execute ("Create View CustomerRecievableAll AS Select .....")
Rs.Open "SELECT * from CustomerRecievableAll "
Report.Database.SetDataSource Rs
Report.Sections.Item(1).AddPictureObject PicPhoto & "\LOGO.jpg", 320, 100
ReportForm.CrystalActiveXReportViewer1.ReportSource = Report
ReportForm.CrystalActiveXReportViewer1.ViewReport
ReportForm.CrystalActiveXReportViewer1.Zoom 1
ReportForm.Show 1
Bookmarks