[alma2]

اذا كنت غير ملزم بالزمن، فقم اولا باستبدال قاعدة البيانات بالمرفقات
واحرص عند اضافة أي تاريخ أن يكون Date فقط لتفادي حدوث مشكلة البحث مستقبلا

كود :

   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
       dt.Clear()
       da = New OleDbDataAdapter("SELECT * FROM [SIR] WHERE [Start] = @start ", con)
       da.SelectCommand.Parameters.AddWithValue("@start", start.Value.Date)
       If da.Fill(dt) = 0 Then
           Load_Data()
           MsgBox("No match found")
       End If
   End Sub