inserisci1.CommandText = "INSERT INTO INSERIMENTI(ID, DATA_INSERIMENTO, [USER], TIPO, COGNOME, NOME, STATO, TIPO_CLT) VALUES ( " & contatore & ",'" & TXT_DATA.Text & "','" & USERNAME & "','" & tipo & "','" & TXT_COGNOME.Text & "','" & TXT_NOME.Text & "','1','" & DDL_CLT.SelectedValue & "'"