[بدري]

استخدام الحدث TextChanged مع تحويل النص الى تاريخ اكيد بيحصل خطا الى ان يكتمل كتابه التاريخ بشكل مقبول
فلابد من التاكد من النص اصبح مقبول تحويله الى تاريخ

استخدم البارامتر لتسهل على نفسك ارسال التاريخ الى الاستعلام مثل

يكون الكود بعد التعديل
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    if not isdate(TextBox1.Text) then exit sub
    Dim SqlStr As String = "select * from Table1 where Birth like @bd "
    DT.Clear()
    Dim Da As New OleDbDataAdapter(SqlStr, Conne)
    Da.selectcommand.parameters.addwithvalue("@bd",cdate(TextBox1.Text))
    Da.Fill(DT)
    DataGridView1.DataSource = DT
End Sub