a me funziona con
Dim Connessione as New Connection