errore nel codice

[gioconda]

Salve, potreste aiutarmi a capire quale è l'errore in questo codice?
E' un form per inserire un nome utente e una password in un db
La connessione funziona, il controllo della presenza del nomeutente e password pure, quello che non funziona è l'inserimento dei dati nel db...

credo quindi che la parte "incriminata" sia questa:

objConn.Execute "Insert into inserimento (utente, password) Values ( '" & strUtente & " ' ,' " & strPassword & "')"
MsgBox "utente inserito correttamente"


manca qualcosa?

Grazie



Option Explicit
Dim strUtente As String
Dim strPassword As String
Dim objConn As Object
Dim objRs As Object


Private Sub cmdEntra_Click()

strUtente = txtUtente.Text
strPassword = txtPassword.Text
Set objConn = CreateObject("ADODB.Connection")
objConn.Open "inserimento"
Set objRs = CreateObject("ADODB.Recordset")
objRs.Open "inserimento", objConn
Do While Not objRs.EOF
If strUtente = objRs("utente") Then
If strPassword = objRs("password") Then
MsgBox "utente già inserito"
Else
objConn.Execute "Insert into inserimento (utente, password) Values ( '" & strUtente & " ' ,' " & strPassword & "')"
MsgBox "utente inserito correttamente"
End If
End If
objRs.MoveNext
Loop
End Sub

[twister_has_you]

objConn.Execute ( "Insert into inserimento (utente, password) Values ( '" & strUtente & " ' ,' " & strPassword & "')" )

[gioconda]

inseite le parentesi, ma continua a non funzionare.

Cliccando sul pulsante non fa nulla, non da messaggi di errore e non esegue nulla...