where fakulte_adi not like %'" & TextBox1.Text & "'%
fakülte adı içersinde textbox1teki veri yok ise kaydet anlamına geliyor.
like ile arama yapın mesela