Dim prova As New provaDataContext Dim ds As New Data.DataSet Using (prova) Dim utenti = From a In prova.tabella_utentis _ Select a End Using