Crystal Report vb.net

        Dim Sql As String
        Sql = " คำสั่ง ภาษา Sql เด้อจร้า"

        'OpenDB()
        cmd = New OleDbCommand(Sql, dbCon)
        dbReadder = cmd.ExecuteReader
        Dim dt As New DataTable
        dt.Load(dbReadder)


        '##Refresh  CrystalReportViewer1  ก่อนเสมอ
        CrystalReportViewer1.Refresh()
        rpt.Load(Application.StartupPath & "/CrystalReport5")

        rpt.SetDataSource(dt)

        '## ส่งค่า Parameter GO CrystalRepor

        rpt.SetParameterValue("HEADER", Trim(txtReport.Text))
        CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.Refresh()

        dbReadder.Close()
        dbReadder = Nothing
        cmd.Dispose()
        dbCon.Close()