真诚请教，谁能提供Crystal Reports连接SQL表建立报表的样例

Question

Dim crSections As Sections
    Dim crSection As Section
    Dim crReportObjects As ReportObjects
    Dim crReportObject As ReportObject
    Dim crSubreportObject As SubreportObject    Dim crReportDocument As CrystalReport1
    Dim crSubreportDocument As ReportDocument    Dim crDatabase As Database
    Dim crTables As Tables
    Dim crTable As Table
    Dim crTableLogOnInfo As TableLogOnInfo
    Dim crConnectioninfo As ConnectionInfo#Region " Windows Form Designer generated code "    Public Sub New(ByVal ServerName As String, ByVal UserID As String, ByVal Password As String, ByVal DatabaseName As String)
        MyBase.New()        'This call is required by the Windows Form Designer.
        InitializeComponent()        'declare an instance of the report and the connectionInfo object        crReportDocument = New CrystalReport1()
        crConnectioninfo = New ConnectionInfo()        'pass the necessary parameters to the connectionInfo object
        With crConnectioninfo
            .ServerName = ServerName
            .UserID = UserID
            .Password = Password
            .DatabaseName = DatabaseName
        End With        'set up the database and tables objects to refer to the current report
        crDatabase = crReportDocument.Database
        crTables = crDatabase.Tables        'loop through all the tables and pass in the connection info
        For Each crTable In crTables
            crTableLogOnInfo = crTable.LogOnInfo
            crTableLogOnInfo.ConnectionInfo = crConnectioninfo
            crTable.ApplyLogOnInfo(crTableLogOnInfo)
        Next        'set the crSections object to the current report's sections
        crSections = crReportDocument.ReportDefinition.Sections        'loop through all the sections to find all the report objects
        For Each crSection In crSections
            crReportObjects = crSection.ReportObjects
            'loop through all the report objects to find all the subreports
            For Each crReportObject In crReportObjects
                If crReportObject.Kind = ReportObjectKind.SubreportObject Then
                    'you will need to typecast the reportobject to a subreport 
                    'object once you find it
                    crSubreportObject = CType(crReportObject, SubreportObject)                    'open the subreport object
                    crSubreportDocument = crSubreportObject.OpenSubreport(crSubreportObject.SubreportName)                    'set the database and tables objects to work with the subreport
                    crDatabase = crSubreportDocument.Database
                    crTables = crDatabase.Tables                    'loop through all the tables in the subreport and 
                    'set up the connection info and apply it to the tables
                    For Each crTable In crTables
                        With crConnectioninfo
                            .ServerName = ServerName
                            .DatabaseName = DatabaseName
                            .UserID = UserID
                            .Password = Password
                        End With
                        crTableLogOnInfo = crTable.LogOnInfo
                        crTableLogOnInfo.ConnectionInfo = crConnectioninfo
                        crTable.ApplyLogOnInfo(crTableLogOnInfo)
                    Next                End If
            Next
        Next        'view the report
        CrystalReportViewer1.ReportSource = crReportDocument
        Me.WindowState = FormWindowState.Maximized
        'Add any initialization after the InitializeComponent() call    End Sub