Cetak Kartu Anggota

Private Sub cetakkartu()
        Dim reportku As New ReportDocument
        reportku.Load("..\..\Kartuanggota.rpt")
        reportku.SetParameterValue("Kode", Tkdanggota.Text)
        CRVkartuanggota.ReportSource = reportku
        CRVkartuanggota.Refresh()
    End Sub