[أبووسم]

السلام عليكم ، كل عام و انتم بخير و من العايدين أخواني الكرام

لدي مشكلة في الكود التالي ، بعد أن اعمل إعادة بحث مرة أخرى ، او إذا كان الاسم المراد البحث عنه غير موجود تخرج لي الخطأ التالي في الصورة

الكود كامل للتعديل عليه

كود :

Conn.Open()
       Dim dataad As New OleDbDataAdapter("SELECT * FROM HadiData where f2 LIKE  '" & TextBox1.Text & "%'", Conn)
       DataSet1.Clear()
       dataad.Fill(DataSet1, "HadiData")
       Conn.Close()
       DataGridView1.DataSource = DataSet1
       DataGridView1.DataMember = "HadiData"
       If Trim(TextBox1.Text) = "" Then
           Conn.Open()
           Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
           DataSet1.Clear()
           DataAdapter1.Fill(DataSet1, "HadiData")
           Conn.Close()
       End If
       dataad = New OleDb.OleDbDataAdapter("select * from Photo where idcard=" & TextBox6.Text & " ", Conn)
       DataSet1 = New DataSet
       dataad.Fill(DataSet1)

       If DataSet1.Tables(0).Rows.Count <> 0 Then
           PictureBox1.DataBindings.Clear() : PictureBox3.DataBindings.Add("Image", DataSet1.Tables(0), "idphoto", True)
       End If
       If TextBox3.Text = "" Then
           MsgBox("       لايـوجد نتائج لعملية بحثك ")
           TextBox1.Focus()
       End If