Try OrElse!
If AdvisoryFirms.AdvisoryFirmNameTextBox.Text <> "Egan Jones" OrElse _ AdvisoryFirms.AdvisoryFirmNameTextBox.Text <> "Farient Advisors" OrElse _ AdvisoryFirms.AdvisoryFirmNameTextBox.Text <> "Glass Lewis" OrElse _ AdvisoryFirms.AdvisoryFirmNameTextBox.Text <> "Internal Guidelines" OrElse _ AdvisoryFirms.AdvisoryFirmNameTextBox.Text <> "ISS" OrElse _ AdvisoryFirms.AdvisoryFirmNameTextBox.Text <> "None" Then RunSql("insert into institution_has_policy (institution_id,policy_id) values ("& _ InstitutionID & ","& NewPolicyID & ")")