Try this code it works for me.
Dim i As Integer ' The variable i gives the number of records updated
'create a table
Dim dt As New DataTable
' create a data adapter
Dim da As New OleDbDataAdapter
Try
'retrieving and populating datagridview
'***************************************
' your statements
'***************************************
'Populates the datatable
da.Fill(dt)
'DataBindings
Your_DataGridView.DataSource = dt
i = da.Update(ds, "WorkRecords")
MsgBox("Changes made successfully, " & i & " records updated!", MsgBoxStyle.OkOnly, "Success")
Catch ex As Exception
MsgBox(ex.Message)
End Try