scusatemi le ultime righe sono cosi:
SQL = "DELETE FROM UTENTIISCRITTI where username = '" & Username & "'"
SQL = SQL& "VALUES ('"&Username&"')"
Conn.Execute(SQL)