Bu sorguda boş alanları nasıl dahil edeceğiz. Yardım edebilirmisiniz ?
Kod:
Public Sub SORGU()
Dim adtr As New OleDbDataAdapter("Select * From KAYITLAR", baglanti)
adtr.SelectCommand.CommandText = ("Select * From KAYITLAR WHERE [AdiSoyadi] LIKE '" & ComboBox1.Text & "%' and [BabaAdi] LIKE '" & ComboBox2.Text & "%' and [DogumYeri] LIKE '" & ComboBox3.Text & "%'")
dtst.Clear()
adtr.Fill(dtst, "KAYITLAR")
baglanti.Close()
satirno()
End Sub