strSQL = "UPDATE Staff (Ruolo)VALUES(iRuolo)WHERE Nome='" & iNome & "' & And '" & iCognome & "'"
DoEvents