มีปัญหากับ gridview vb ช่วยชี้ทางทีครับ หรือช่วยแนะนำทีครับ

Private Sub btplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btplus.Click
        dt = New DataTable()
        dt.Columns.Add("movieID")
        dt.Columns.Add("movieName")
        dt.Columns.Add("movieType")
        dt.Columns.Add("moviePrice")


        Dim a As String = dgvorder.CurrentRow.Cells(0).Value.ToString()
        Dim b As String = dgvorder.CurrentRow.Cells(1).Value.ToString()
        Dim c As String = dgvorder.CurrentRow.Cells(2).Value.ToString()
        Dim d As String = dgvorder.CurrentRow.Cells(3).Value.ToString()

        datarow = dt.NewRow()
        datarow("movieID") = a
        datarow("movieName") = b
        datarow("movieType") = c
        datarow("moviePrice") = d
        dt.Rows.Add(datarow)
        dgvorderlist.DataSource = dt
    End Sub