objCommand.CommandText = "INSERT INTO Iscrizione (NumeroContratto) VALUES (@NumeroContratto)"
 objCommand.Parameters.Add("NumeroContratto", OleDbType.Integer).Value = Integer.Parse(frmIscrizione.txtNumeroContratto.Text)