[ابراهيم ايبو]

السلام عليكم اخي محمد
انت تستخدم الحدث TextBox1_TextChanged وهنا
ستضطر لوضع الكود داخل زر بحث بجانب مريع البحث 
اي ستكتب في مربع النص ثم تضغط على زر التحقق والبحث
ناحية اخرى تعال على هذا السطر 

كود :

Dim Sql As String = "Select * From Table1 where birthdate like '%" & TextBox1.Text & "%'"

واستبدله بهذا في حالتي ال  if و Else بحيث تكتب التاريخ في مربع النص وسيكون البحث مطابق

كود :

Dim Sql As String = "Select * From Table1 where birthdate = '" & TextBox1.Text & "'"

اخي محمد اعذرني لانني لم استطيع فتح مشروعك لانني اعمل عل فيجوال بيسك 2010 واوفيس 2003 فقد فتحت السورس كود