strSQL = "INSERT INTO Utente(NomeUtente, Password) VALUES ('" & UserName & "' , '" & Password & "' );"
MsgBox strSQL
cn.Execute strSQL