Lo hago de la siguiente manera:
Dim ds As New DataSet()
Sub EliminarNodo()
...Acciones de eliminar el nodo
ds.Reset()
'Lo hice también poniendo en vez de ds.Reset()-> enlace()
End Sub
Sub enlace()
Call CerrarArchivo()
Call GetcdTrans()
fs = New FileStream(Session("PathDatos") & Arr(0) & ".xml", FileMode.Open, FileAccess.ReadWrite)
xmlStream = New StreamReader(fs)
ds.ReadXml(xmlStream)
dtgrdListTrans.DataSource = ds.Tables("LstTrans").DefaultView
dtgrdListTrans.DataBind()
fs.Close()
End Sub
