VB.net gebundene CheckBox aktualisieren

    Private Private_tbl_Optionen_BindingSource As New BindingSource()
    Private Private_tbl_Optionen_Adapter As New OleDbDataAdapter()
    Private Private_tbl_Optionen_DataSet As New DataSet
    Private Private_tbl_Optionen_RecordSet As String = "DS_Optionen"  

            Dim TV_SQLString as String = "SELECT MyID, DatenaustauschAktiv FROM " & Const_tbl_Optionen  

            'Databinding  
            Private_tbl_Optionen_BindingSource.DataSource = CreateDataTable(TV_SQLString, DBTyp.MSAcc, Private_tbl_Optionen_RecordSet)

            If Private_tbl_Optionen_BindingSource.Count = 0 Then Private_tbl_Optionen_BindingSource.AddNew()

            Private_tbl_Optionen_Adapter = New OleDbDataAdapter(TV_SQLString, Public_MSAccConnectString)
            Private_tbl_Optionen_Adapter.Fill(Private_tbl_Optionen_DataSet, Private_tbl_Optionen_RecordSet)
            Dim EObuilder As OleDbCommandBuilder = New OleDbCommandBuilder(Private_tbl_Optionen_Adapter)
            Private_tbl_Optionen_Adapter.UpdateCommand = EObuilder.GetUpdateCommand()

            With Private_tbl_Optionen_BindingSource
                cbox_DatenaustauschAktiv.DataBindings.Add("Checked", .DataSource, "DatenaustauschAktiv", True, DataSourceUpdateMode.OnPropertyChanged)  
            End With

    Private Sub cbox_DatenaustauschAktiv_CheckedChanged(sender As Object, e As EventArgs) Handles cbox_DatenaustauschAktiv.CheckedChanged

        Private_tbl_Optionen_BindingSource.EndEdit()
        Private_tbl_Optionen_Adapter.Update(CType(Private_tbl_Optionen_BindingSource.DataSource, DataTable))
        Private_tbl_Optionen_DataSet.AcceptChanges()

    End Sub