ayuda en creacion de tabla

Quisiera saber si alguienentiende porke me pasa un error

Estoy creando una hashtable de la siguiente manera (es una coleccion de
tablas y lo hago kon hash porquenecesito una clave)

For Each datarow1 In ds.Tables("tabla1").Rows
datatable1 = ds.Tables("tabla2").Copy
For Each datarow2 In datatable1.Rows
If Not Trim(datarow1(0)).ToUpper = Trim(datarow2(0)).ToUpper
Then
datarow2.Delete()
End If
Next
coleccion.Add(Trim(datarow1(0)), datatable1)
Next

esto lo hace bien me crea una coleccion con la tablas correctas, el
problema
se me presenta a la hora de mirar alguna de las tablas de la coleccion, ya
que si muestro cada una en un data grid me los muestra bien y las tablas
que
deberia pero al acceder a una fila me presenta problema y me dice que la
fila
esta eliminada (debe ser por datarow2.delete), pero no c como solucionarlo
los problemas se me presentan en un evento del datagrid:

Private Sub dg_CurrentCellChaged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles dg.CurrentCellChanged
Try
Dim b As Boolean
MsgBox(dg.DataSource.Rows(dg.CurrentRowIndex)("Columna1"))
end sub


quiero que me mueestre el valor de una columna en la fila posicionada,
pero
en algunos casos me dice que no se puede aceder a la informacion eliminada
de
una fila ...

Agradeceria si alguien tiene idea como solucionar esto, he usado elmetodo
accept changes pero ahi no mecarga la coleccion