ListBox DataSet Urgent Problem

I have two ListBoxes in my VB.Net Form.Each ListBox is connected to a DataSet.
Between ListBoxes there are two Buttons .. You Know "<<" And ">>". I transfer data from ListBox to another by the following code:
1. Get DataViiew of First ListBox . Then I Remove From It the Specific Item.
2. Then Get a DataSet of the Deleted Changes in the First DataSet : Ds.getChanges(DataRowState.Deleted)
3. Merge the Second DataSet of the Second ListBox to the Deleted Items DataSet..
DS2.Merge(DataSet )
All those Actions really Happen. It does transfer the item from one listbox to another..But it doesn't delete it from the First ListBox..
When I try to delete an item from the ListBox..
It Gives me an Error: That The ListBox Cannot Be Modified .. while the ListBox.DataSource is Set..
If I set the ListBox.DataSource = Nothing to be able to change [delete] the item in the ListBox .. it removes all the items in the ListBox...How Could I delete the Items in the First ListBox that have been transferred to the other ListBox?

How Could I delete the Items in the First ListBox that have been transferred to the other ListBox?
Please It is a Very Fatal Problem For ME... I searched alot for an answer but couldn't find one.. Hope u can help me

i think u cannot delete if the datasource is set. that will result in deletion of records. i use the following code to move items within llistboxes.

VB Code:

Private Sub cmd_SelAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_SelAll.Click
        List2.Items.AddRange(List1.Items)
        List1.Items.Clear()
    End Sub
 
    Private Sub cmd_Select_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Select.Click
        Dim n As Short
        For n = 0 To List1.Items.Count - 1
            If List1.GetSelected(n) = True Then
                List2.Items.Add(List1.Items(n))
            End If
        Next
 
        n = 0
        Do While n <= List1.Items.Count - 1
            If List1.GetSelected(n) = True Then
                List1.Items.RemoveAt(n)
                n = n - 1
            End If
            n = n + 1
        Loop
        List1.Focus()
    End Sub
 
    Private Sub cmd_Remove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Remove.Click
        Dim n As Short
        For n = 0 To List2.Items.Count - 1
            If List2.GetSelected(n) = True Then
                List1.Items.Add(List2.Items(n))
            End If
        Next
 
        n = 0
        Do While n <= List2.Items.Count - 1
            If List2.GetSelected(n) = True Then
                List2.Items.RemoveAt(n)
                n = n - 1
            End If
            n = n + 1
        Loop
        List2.Focus()
    End Sub
 
    Private Sub cmd_RemAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_RemAll.Click
        List1.Items.AddRange(List2.Items)
        List2.Items.Clear()
    End Sub

hope it helps