Reading dataset with a datarow when Removing 2 item ? bug ?

        'Déclare le DataSet des rues
        Dim dsDataSetRue As DataSet = frmItems.DataSetRue1.Copy
        'Déclare le DataSet des adresses
        Dim dsDataSetAdresse As DataSet = frmItems.DataSetAdresse1
        'Déclare le DataSet des villes
        Dim dsDataSetVille As DataSet = frmItems.DataSetVille1.Copy
        'Déclare une ligne dans la table des adresse
        Dim drDataRowAdresse As DataRow
        'Déclare une ligne dans la table des rues
        Dim drDataRowRue As DataRow
        'Déclare un objet pour la rue
        Dim objRue As Object
        'Déclare une variable pour savoir si élément trouvé
        Dim btrouve As Boolean = False
        'déclare un tableau qui aura les numéro de rue des rue du combobox
        Dim tabNoRue(cboRue.Items.Count) As Integer
        Dim i As Integer = 0
        'Declare un compteur pour savoir où on est ds la table
        Dim iIndex As Integer = 0

            iIndex = 0
            For Each drDataRowAdresse In dsDataSetAdresse.Tables("Adresse").Rows

                If drDataRowAdresse.Item("noreleve") = FindReleve(NoReleve) Then

                    'pour chaque element du tableau
                    For i = 1 To (tabNoRue.Length - 1)

                        'Si le numéro de la rue est correspondant a l'un des élément
                        If drDataRowAdresse.Item("norue") = tabNoRue(i) Then
                            btrouve = True
                            Exit For
                        End If

                    Next i

                    'Si l'élément n'est plus dans la liste
                    If btrouve = False Then
                        'Enlève de la DB la donnée se trouvant a l'iIndex
                        frmItems.BindingContext(frmItems.DataSetAdresse1, "Adresse").RemoveAt(iIndex)

                    Else : btrouve = False
                    End If

                End If

                'Ajoute 1 a l'index pour trouver l'élement où on est rendu
                iIndex = iIndex + 1

            Next
            'Force le programme a faire un update des données
            Try
                frmItems.OleDbDataAdapterAdresse.Update(frmItems.DataSetAdresse1)
            Catch
                MsgBox("Erreur pendant l'enregistrement des données de la table 'ADRESSE'.", MsgBoxStyle.Exclamation + MsgBoxStyle.OKOnly, _
                                                                                                                    "Gestion des relevés")
            End Try
        Else
            'Affiche d'un message d'erreur s'il n'y a pas de rue d'ajouter
            MsgBox("Vous devez avoir au moins une rue pour chaque relevé", MsgBoxStyle.OKOnly, "Gestion des relevés")
        End If


    End Sub