Membuat Report di VB 0.6

1.	Buat Project Baru
2.	Tambahkan References melalui menu Project >> References. Pada kotak dialog references tambahkan pilihan berikut :
	Microsoft ActiveX Data Objects 2.0 Library
	Crystal ActiveX Report Viewer Library 10.0
	Crystal Reports ActiveX  Designer Run Time Library 10.0
	Lihat gambar di bawah ini untuk lebih jelasnya
3.	Tambahkan Komponen Crystal Report melalui menu Project >> Components (aktifkan Crystal ActiveX Report Viewer Library 10.0). Lihat gambar di bawah ini.
4.	Tambahkan modul baru di project dan masukkan code program seperti di bawah ini
	Public Strcon As New ADODB.Connection Public RS As New ADODB.Recordset Public Const strODBC = "DATASOURCE-SISWA" Sub OPEN_DATABASE()    On Error GoTo err    Set Strcon = New ADODB.Connection    Strcon.Open strODBC    Strcon.CursorLocation = adUseClient    Exit Sub err:    MsgBox "DATABASE BELUM DISETTING ATAU SETTINGAN DATABASE " & _    "SALAH (BUAT DATASOURCE ODBC DI CONTROL PANEL)! " & _    "Cek Kembali Settingan ODBC..!", vbOKOnly + vbCritical, "Database"    End End Sub
5.	Tambahkan kontrol CrystalActiveXReportViewer di form1 dan ubah name menjadi : CARV. Kemudian masukkan kode program di bawah ini pada jendela code pada form1
	Dim Appl As New CRAXDRT.Application Dim RPT As New CRAXDRT.Report Private Sub Form_Load()    Dim sqlSelect, ReportFilePath As String    OPEN_DATABASE    sqlSelect = "SELECT * FROM t_siswa"    If RS.State = 1 Then RS.Close    RS.Open sqlSelect, Strcon    ReportFilePath = App.Path & "\LaporanSiswa.rpt"    Set RPT = Appl.OpenReport(ReportFilePath)    RPT.Database.SetDataSource RS, 3, 1    CARV.ReportSource = RPT    CARV.ViewReport    RPT.DiscardSavedData End Sub Private Sub Form_Resize()    CARV.Width = Me.Width    CARV.Height = Me.Height End Sub
6.	Sekarang tinggal Run Program Anda. Di bawah ini contoh tampilannya