how to write datagridview edited data to database in vb.net

Public vDA As OleDb.OleDbDataAdapter
Public vDs As DataSet

    Private Sub cmdGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGenerate.Click
       
        Dim vSelStr As String = "SELECT * FROM PRODUCTION WHERE PDATE = #" & vDate & "#"

        vDA = New OleDb.OleDbDataAdapter(vSelStr, con)
        vDs = New DataSet
        vDA.Fill(vDs, "Production")

        Me.dgvData.DataSource = vDs.Tables("PRODUCTION")

    End Sub


    Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click

        Dim vCb As OleDb.OleDbCommandBuilder

        vCb = New OleDb.OleDbCommandBuilder(vDA)

        vDA.Update(vDs, "PRODUCTION")
     
        MsgBox("Updated!")
    End Sub