reportviewr rdlc

Imports MySql.Data.MySqlClient
Imports System.ComponentModel
Imports Microsoft.Reporting.WinForms
Public Class FormTandaTerimaTU
    Private Sub ButtonCetak_Click(sender As Object, e As EventArgs) Handles ButtonCetak.Click
        Try
            'hapus data
            conn.Open()
            sstr = "call sp_CRUD_tblkas_temp (@p1)"
            cmd = New MySqlCommand(sstr, conn)
            cmd.Parameters.Add("@p1", MySqlDbType.String, 11).Value = FormSK.DGVTU.Rows(i).Cells("colidkastu").Value
            cmd.ExecuteNonQuery()
            MsgBox("No.Reff " + FormSK.DGVTU.Rows(i).Cells("ColreffV").Value + " berhasil di Terima")
            conn.Close()

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub FormTandaTerimaTU_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        ReportViewer1.RefreshReport()
    End Sub
    Sub TampilCetak()
        Try
            conn.Open()
            sstr = "select tgltrx,notrx,kettrx,nominaltrx from v_tblkastu_temp where notrx='" & Txtnotrx.Text & "'"
            da = New MySqlDataAdapter(sstr, conn)
            dt = New DataTable
            da.Fill(dt)
            ReportViewer1.LocalReport.DataSources.Clear()
            Dim rpt As New ReportDataSource("TandaterimaTU", dt)
            ReportViewer1.LocalReport.DataSources.Add(rpt)
            ReportViewer1.Refresh()

            conn.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Private Sub FormTandaTerimaTU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ReportViewer1.RefreshReport()
    End Sub

    Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
        TampilCetak()
    End Sub

End Class