prima di end sub aggiungi
cmd.Connection.Open
cmd.ExecuteNonQuery
cmd.Connection.Close