leer xml a datatable

[izar]

trengo que subir un fichero xml y guardar los registros en un datatable

pero el readxml me devuelve 0 filas....

este es mi xml

Código:

<?xml version="1.0" encoding="UTF-8"?>
<dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2015-01-16T14:08:37">
<Record>
    <IDENTIFICACION />
    <COMARCAEUSTAT>9</COMARCAEUSTAT>
    <COMARCADIPU />
    <OBSERVACIONES1 />
    <NOMORGANIZACION>ASOCIACION DE TIEMPO LIBRE HAZI TALDEA-SANTA CLARA</NOMORGANIZACION>
    <CIF />
    <FIGURAJURIDICA>1</FIGURAJURIDICA>
    <FUENTEREGISTROOFICIAL>1</FUENTEREGISTROOFICIAL>
    <NUMREGISTRO>AS/A/18168/2014</NUMREGISTRO>
    <DIRECCION>Av. Mediterraneo, 37 (Parroquia) 01015 Vitoria-Gasteiz</DIRECCION>
    <CP />
    <MUNICIPIO>158</MUNICIPIO>
    <PROVINCIA>3</PROVINCIA>
    <TELEFONO1 />
    <TELEFONO2 />
    <FAX />
    <EMAILORG />
    <WEB />
    <PERSONACONTACTO />
    <EMAILPERSONACONTACTO />
    <INFORPARACLASIFICAR>Cultura GeneralTiempo Libre</INFORPARACLASIFICAR>
    <AMACTUACIONTS>7</AMACTUACIONTS>
    <ARTISTICOCULTURAL>False</ARTISTICOCULTURAL>
    <MASDE1MILLON>False</MASDE1MILLON>
    <CRITERIO2>3</CRITERIO2>
    <OBJETOTS>1</OBJETOTS>
    <OBJETOTSS>1</OBJETOTSS>
    <EMPRESAINSERCION>False</EMPRESAINSERCION>
    <CENTROESPECIALEMPLEO>False</CENTROESPECIALEMPLEO>
    <FECHACONSTITUCION>2014</FECHACONSTITUCION>
    <NIVEL>2</NIVEL>
    <TIPOINICIATIVA />
    <AMGEOGRAFACT />
    <AMACTUACIONTSS>4</AMACTUACIONTSS>
    <CONTINGENCIA>6</CONTINGENCIA>
    <COLECTIVO>3</COLECTIVO>
    <PERSONASUSUARIAS />
    <PERSONASVOLUNTARIAS />
    <PERSONASREMUNERADAS />
    <VOLUMENINGRESOS />
    <FECHAULTIMAENCUESTA />
    <ANOSENCUESTA />
    <CONTACTADADIRECT>False</CONTACTADADIRECT>
    <FECHAULTIMOCONTACTO />
    <ENVIOENCUESTA>True</ENVIOENCUESTA>
    <OBSERVACIONES2 />
  </Record>
  </dataroot>

y este mi codigo

Código:

 Dim dtexcelSubido As New DataTable
 dtexcelSubido = ReadXML(Server.MapPath(FolderPath + Session("mifichero")))



Public Function ReadXML(ByVal file As String) As DataTable
        'create the DataTable that will hold the data
        Dim table As New DataTable("XmlData")
        Try
           

            'open the file using a Stream
            Using stream As Stream = New FileStream(file, FileMode.Open, FileAccess.Read)
                'create the table with the appropriate column names
                table.Columns.Add("IDENTIFICACION", GetType(Integer))
                table.Columns.Add("COMARCAEUSTAT", GetType(Integer))
                table.Columns.Add("COMARCADIPU", GetType(Integer))
                table.Columns.Add("OBSERVACIONES1", GetType(String))

                table.Columns.Add("NOMORGANIZACION", GetType(String))
                table.Columns.Add("CIF", GetType(String))

                table.Columns.Add("FIGURAJURIDICA", GetType(Integer))
                table.Columns.Add("FUENTEREGISTROOFICIAL", GetType(Integer))

                table.Columns.Add("NUMREGISTRO", GetType(String))
                table.Columns.Add("DIRECCION", GetType(String))

                table.Columns.Add("CP", GetType(Integer))
                table.Columns.Add("MUNICIPIO", GetType(Integer))
                table.Columns.Add("PROVINCIA", GetType(Integer))

                table.Columns.Add("TELEFONO1", GetType(String))
                table.Columns.Add("TELEFONO2", GetType(String))

                table.Columns.Add("FAX", GetType(String))
                table.Columns.Add("EMAILORG", GetType(String))

                table.Columns.Add("WEB", GetType(String))
                table.Columns.Add("PERSONACONTACTO", GetType(String))

                table.Columns.Add("EMAILPERSONACONTACTO", GetType(String))
                table.Columns.Add("INFORPARACLASIFICAR", GetType(String))

                table.Columns.Add("AMACTUACIONTS", GetType(Integer))

                table.Columns.Add("ARTISTICOCULTURAL", GetType(Boolean))
                table.Columns.Add("MASDE1MILLON", GetType(Boolean))


                table.Columns.Add("CRITERIO2", GetType(Integer))
                table.Columns.Add("OBJETOTS", GetType(Integer))
                table.Columns.Add("OBJETOTSS", GetType(Integer))


                table.Columns.Add("EMPRESAINSERCION", GetType(Boolean))
                table.Columns.Add("CENTROESPECIALEMPLEO", GetType(Boolean))


                table.Columns.Add("FECHACONSTITUCION", GetType(Integer))
                table.Columns.Add("NIVEL", GetType(Integer))
                table.Columns.Add("TIPOINICIATIVA", GetType(Integer))
                table.Columns.Add("AMGEOGRAFACT", GetType(Integer))
                table.Columns.Add("AMACTUACIONTSS", GetType(Integer))
                table.Columns.Add("CONTINGENCIA", GetType(Integer))
                table.Columns.Add("COLECTIVO", GetType(Integer))


                table.Columns.Add("PERSONASUSUARIAS", GetType(String))
                table.Columns.Add("PERSONASVOLUNTARIAS", GetType(String))
                table.Columns.Add("PERSONASREMUNERADAS", GetType(String))
                table.Columns.Add("VOLUMENINGRESOS", GetType(String))
                table.Columns.Add("FECHAULTIMAENCUESTA", GetType(String))
                table.Columns.Add("ANOSENCUESTA", GetType(String))

                table.Columns.Add("CONTACTADADIRECT", GetType(Boolean))
                table.Columns.Add("FECHAULTIMOCONTACTO", GetType(DateTime))
                table.Columns.Add("ENVIOENCUESTA", GetType(Boolean))
                table.Columns.Add("OBSERVACIONES2", GetType(String))



                'use ReadXml to read the XML stream
                table.ReadXml(Stream)

                'return the results
                Return table
            End Using
        Catch ex As Exception
            Return table
        End Try
    End Function

lel datatable siempre me recupera 0 registros....