Dim strSQL2 As String = "SELECT Personel.personelid, Personel.yonetim," & _
(SELECT yonetim FROM yonetimler WHERE Kimlik=clng(personel.yonetim)) AS ynt, " & _
"Personel.tc, Personel.adi_soyadi, Personel.dogum_tar, Personel.ise_giris, Personel.statu " & _
"FROM Personel " & _
"WHERE ((((SELECT yonetim FROM yonetimler WHERE Kimlik=clng(personel.yonetim))) Like '%" & IIf(ComboBox1.Text = "Hepsi", "", ComboBox1.Text) & "%' ) " & _
"AND (Personel.adi_soyadi like '%" & TextBox1.Text & "%'));"
Konuyu da cevaplanmış olarak işaretliyorum .