According to the below link I got a solution :

link!

So I added the BeginEdit event datagridview then the error is solved

Private Sub DataGridView1_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs) Handles DataGridView1.CellBeginEdit
        Dim currencyManager As CurrencyManager = CType(BindingContext(BindingSource1.DataSource), CurrencyManager)
        currencyManager.SuspendBinding()
        ' Manipulate datasource
        currencyManager.ResumeBinding()

    End Sub