Membuat Laporan Harian di Visual Basic

Hasil laporan jika program dijalankan akan terlihat seperti gambar di bawah ini:

Buatlah form seperti gambar di bawah ini (jangan lupa tambahkan objek Crystal report ke
dalam form kemudian mengganti namanya menjadi CR)

1. Dim Conn As New ADODB.Connection   
2. Dim RSPenjualan As New ADODB.Recordset   
3. Sub Koneksi()   
4. Set Conn = New ADODB.Connection   
5. Set RSPenjualan = New ADODB.Recordset   
6. Conn.Open "provider=microsoft.jet.oledb.4.0;data source = " & App.Path   
7. & "\dbjual.mdb"   
8. End Sub   
9.    
10. Private Sub Form_Load()   
11. Call Koneksi   
12. RSPenjualan.Open "select distinct tanggal from penjualan order by 1",   
13. Conn   
14. Combo1.Clear   
15. Do While Not RSPenjualan.EOF   
16. Combo1.AddItem RSPenjualan!Tanggal   
17. RSPenjualan.MoveNext   
18. Loop   
19. End Sub   
20.    
21. Private Sub Combo1_Click()   
22. CR.SelectionFormula = "Totext({Penjualan.Tanggal})='" &   
23. CDate(Combo1) & "'"   
24. CR.ReportFileName = App.Path & "\Lap Jual Harian.rpt"   
25. CR.WindowState = crptMaximized   
26. CR.RetrieveDataFiles   
27. CR.Action = 1   
28. End Sub