editar e salvar no banco de dados access

Question

                     

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If ListBox1.SelectedItem = Nothing Then
            MsgBox("Selecione uma conta para confirmar o pagamento !", MsgBoxStyle.SystemModal)
        Else
            If ListBox6.SelectedItem = "Pago" Then
                MsgBox("Esta conta já está registrada como paga !", MsgBoxStyle.SystemModal)
            Else
                For Each i As DataGridViewRow In Me.DívidasDataGridView.Rows
                    If i.Cells(1).FormattedValue.ToString = ListBox2.SelectedItem And _
                        i.Cells(2).FormattedValue.ToString = ListBox3.SelectedItem And _
                        i.Cells(3).FormattedValue.ToString = ListBox5.SelectedItem And _
                        i.Cells(4).FormattedValue.ToString = ListBox4.SelectedItem And _
                        i.Cells(5).FormattedValue.ToString = ListBox1.SelectedItem Then

                        i.cells(6).value = "pago"

                        Me.Validate()
                        Me.DívidasBindingSource.EndEdit()
                        Me.TableAdapterManager.UpdateAll(Me.Tati_Modas_SPDataSet)  ' aqui  que sempre da o erro

                        My.Settings.V1 = 0
                        My.Settings.Save()
                    End If
                Next
            End If
        End If
    End Sub

obs : no datagridvew eu consigo ver q ele edito tudo certinho , mas na hora de salva gera este erro na linha 

tentei adicionar nova linha , remover , mas sempre que faço o updateall ta aparecendo erro e n salva 

vlw , 

e sei q n estou fazendo algo errado pois nos outros formes fiz igual e funciona , 

vlw 

---

AleSaggiorato