Writing Data from a Non-databound DataGridView to a Databound Table

Hello Experts.

This little head scratcher is a bit more complicated that the other questions I've submitted, so it's definitely not for the faint of heart.

The primary objective is for me to learn the correct method for writing data from a non-databound DataGridView to a databound table.

Background:
I have a databound table called "Roster" which contains sports player names, and other statistical data. This constantly changing data is maintained by an international organized sports organization. My Roster table is used to retain a recent snap-shot of that data specific to my local division teams. To accomplish that, I have created a subroutine which accepts data directly from the clipboard. The user populates the CB by logging into the organization's website and manually selecting the data on the screen.  Another subroutine converts the stream to a usable format. The next subroutine retrieves the new data and compares it with the currently stored values. Finally, all identified changes are presented to the user in a non-databound DataGridView object such as this:

Accepting this dialog initiates the table updating process for all rows which are checked as accepted. For now, I would just like to read the first row on the DGV and write the one change to the Roster table (in this case, changing David Rowe's Skill Level from 5 to 6).

Here is the code I put together, but it doesn't seem to be updating the database.

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        If MessageBox.Show("Proceed with updates for all checked items?") = vbOK Then
            With dgvRosterChanges
                Dim dgvRowCount As Integer = .RowCount()
                For i = 0 To dgvRowCount - 1
                    If .Item(6, i).Value = True Then
                        Dim PlayerID As String = .Item(0, i).Value
                        Dim PlayerNm As String = .Item(1, i).Value
                        Dim TeamName As String = .Item(2, i).Value
                        Dim Val2Chng As String = .Item(3, i).Value
                        Dim NewValue As String = .Item(5, i).Value
                        Dim ChgValue As String = ""
                        Select Case Val2Chng
                            Case "Match Wins" : ChgValue = "Match_Wins"
                            Case "Match Losses" : ChgValue = "Match_Losses"
                            Case "Skill Level" : ChgValue = "SL"
                            Case "Team Change" : ChgValue = "Teams_Key"
                            Case Else : ChgValue = ""
                        End Select
                        Call UpdateRosterValue(PlayerID, ChgValue, NewValue)
                    End If
                Next
            End With
        End If
        Me.Validate()
        RosterBindingSource.EndEdit()
        RosterTableAdapter.Update(sData.Roster)
        Me.Close()
    End Sub

    Public Sub [b]UpdateRosterValue[/b](ByVal RecID As String, ByVal FldID As String, ByVal NewVal As String)
        Dim TableCount As Integer = sData.Roster.Count
        If TableCount = 0 Then RosterTableAdapter.Fill(sData.Roster)
        Dim DoUpdate =
            (
            From RD In sData.Roster
            Where RD.APA_Player_ID = CInt(RecID)
            ).ToList()
        For Each row In DoUpdate
            row.Item(FldID) = NewVal
            row.AcceptChanges()
        Next
    End Sub

Select allOpen in new window

As always, I am entirely open to new ideas and suggestions.