non so se così ti funzioni (esempio)
codice:
        Dim result = From c In dt
                     Where CInt(c("id_regione")) > 0
                     Order By CInt(c("id_regione")) Descending
                     Select New With
                        {
                            .id = CInt(c("id_regione")),
                            .nome = CStr(c("nome_regione"))
                        }