senti, prova a mettere i nomi dei campi tra parentesi quadre:
codice:
strCreateUser = "INSERT INTO Utenti
                ([Utente],[Password],[Icon],[Autor]) 
                 VALUES('" & strNome & "','" & strPass & "',
                        '" & strIcona & "'," & lngAutor & ")"