Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Windows.Forms
Imports CrystalDecisions.ReportSource
Imports System.Data
Imports System.Data.SqlClient
 
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim connectionString As String = "Data Source=DATA_SOURCE;Integrated Security=True"
        Dim sqlCon As New SqlConnection(connectionString)
        sqlCon.Open()
 
        Dim sqlCmd As New SqlCommand("SELECT * FROM CUSTOMER", sqlCon)
        Dim sqlAdapter As New SqlDataAdapter(sqlCmd)
        Dim CustomerDataSet As New DataSet()
        sqlAdapter.Fill(CustomerDataSet,"Customer")
 
        Dim ReportDoc As New ReportDocument
        ReportDoc.Load("CustomerProfile.rpt")
        ReportDoc.SetDataSource(CustomerDataSet.Tables("Customer"))
 
        CrystalReportViewer1.ShowRefreshButton = False
        CrystalReportViewer1.ShowCloseButton = False
        CrystalReportViewer1.ShowGroupTreeButton = False
 
        CrystalReportViewer1.ReportSource = ReportDoc
 
    End Sub
 
End Class