เขียนปุ่ม pinrt จาก CrystalReport ไม่ได้ครับ ช่วยทีครับ พยายามแล้วครับ

Public Class myGenericList(Of T)
    Private _lst As New List(Of T)
    ''' <summary>
    ''' Ctor
    ''' </summary>
    ''' <remarks></remarks>
    Sub New()
    End Sub

    Public Sub Add(ByVal item As T)
        _lst.Add(item)
    End Sub

    Public Sub Remove(ByVal index As Integer)
        If (index >= 0) AndAlso (_lst.Count > index) AndAlso (_lst.ElementAtOrDefault(index) IsNot Nothing) Then
            _lst.RemoveAt(index)
        Else
            'TODO
        End If
    End Sub

    Default Public Property Item(ByVal index As Integer) As T
        Get
            Return _lst(index)
        End Get
        Set(value As T)
            _lst(index) = value
        End Set
    End Property
End Class

            Dim rpt_path As String = Application.StartupPath & "\report\example.rpt

            Dim ds = New DataSet() //สร้าง DataSet ไว้สำหรับเก็บข้อมูลจากตารางที่เราคิวรี่มาจากฐานข้อมูล เพื่อส่งให้ Crystal report แสดงผล
            ds.Tables("table1").Merge(sub1(param1)) //Sub1(Param1) คือ sub ที่ส่งก้อนข้อมูลที่คิวรี่จากฐานข้อมูลในรูปของ DataTable
            ds.Tables("table2").Merge(sub2(param2))
            ds.Tables("mixer_report").Merge(sub3(param3)

            Dim rpt As New ReportDocument 
            rpt.Load(rpt_path)
            rpt.Subreports(0).SetDataSource(Sub4(Param3)4 การส่งก้อนข้อมูลเข้า SubReport 
            rpt.SetDataSource(ds)
            rpt.SetParameterValue("Param", "value") //ส่งค่า Parameter เข้า Crystal report

            CrystalReportViewer1.ReportSource = rpt
            CrystalReportViewer1.Refresh()
            CrystalReportViewer1.Zoom(1) 

  <startup useLegacyV2RuntimeActivationPolicy="true">
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
  </startup>

Public Class Customers
  Public Property CustID? As Integer 'รหัสลูกค้า
  Public Property DeadDate As NullAble(Of Date) 'วันมรณะ
'สองบรรทัดข้างบนนี้ ความหมายเดียวกัน
End Class

        Dim leftList = {
                        New With {.ID = 1, .Name = "John", .Changed = False},
                        New With {.ID = 2, .Name = "Obama", .Changed = False},
                        New With {.ID = 3, .Name = "Kinton", .Changed = False}
                        }
        Dim rightList = {
                        New With {.ID = 1, .Name = "John", .Changed = False},
                        New With {.ID = 3, .Name = "Kinton", .Changed = True},
                        New With {.ID = 4, .Name = "Payboy", .Changed = False}
                        }

        Dim RPTJoinList = leftList.GroupJoin(rightList, Function(left) left.ID, Function(right) right.ID, Function(x, y) New With { _
                                            Key .Left = x, Key .Rights = y _
                                            }).SelectMany(Function(x) x.Rights.DefaultIfEmpty(), Function(x, y) New With {
                                                Key .ID = x.Left.ID, _
                                                Key .Name = x.Left.Name, _
                                                Key .Changed = If(y Is Nothing, x.Left.Changed, y.Changed) _
                                            }).ToList()

Public Class Customers
  Public Property CustID As Integer 'รหัสลูกค้า
  Public Property DeadDate As Date  'วันมรณะ
'สองบรรทัดข้างบนนี้ ความหมายเดียวกัน
End Class