ovvio che dopo il select vuole il case quella non deve essere un'istruzione vb ma una query SQL