Porque no lees mejor directamente tu archivo XML con e mismo dataset..
Cita: Sub enlace()
Call CerrarArchivo()
Call GetcdTrans()
Dim sPath as String = Session("PathDatos") & Arr(0) & ".xml"
ds.ReadXml(sPath)
dtgrdListTrans.DataSource = ds.Tables(0)
dtgrdListTrans.DataBind()
End Sub
Pruebalo
