โหลด crystal report แล้วแต่ก็ใช้ไม่ได้อะครับ vb 2010 ต้องทำยังไงหรอครับหรือว่าใช้ไม่ได้

Private Sub from4_load()

        sql = "select * from dataorder"
        Dim dtt As DataTable = SelectSQL(sql)
        Me.DataGridView1.DataSource = DT

        Me.DataGridView1.Columns.Clear()

        Dim column As DataGridViewTextBoxColumn

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "proid"
        column.HeaderText = "รหัสสินค้า"
        column.Width = 50
        Me.DataGridView1.Columns.Add(column)

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "proname"
        column.HeaderText = "ชื่อสินค้า"
        column.Width = 100
        Me.DataGridView1.Columns.Add(column)

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "unitdetail"
        column.HeaderText = "หน่วย"
        column.Width = 100
        Me.DataGridView1.Columns.Add(column)

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "unitcost"
        column.HeaderText = "จำนวนซื้อ"
        column.Width = 50
        Me.DataGridView1.Columns.Add(column)

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "unitprice"
        column.HeaderText = "ราคา"
        column.Width = 50
        Me.DataGridView1.Columns.Add(column)

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "dtotal"
        column.HeaderText = "รวม"
        column.Width = 50
        Me.DataGridView1.Columns.Add(column)

        DT = Nothing

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        sql = "insert into reportorder (orderid,proid,proname,amount,unitcost,orderdate,supname) values (" & TextBox1.Text & ",'" & DateTimePicker1.Value.Date & "'," & namesup & ")"
        RunSQL(sql)
    End Sub