[معاند الحظ]

وعليك السلام ورحمة الله وبركاته
ورمضان مبارك عليك وعلينا وعلى كل المسلمين

اخي الغالي انا لست محترف في التعامل مع قواعد البيانات لكني لم استطع منع نفسي من محاولة معرفة الخطأ في برنامجك
وبعد تحميل مشروعك وتشغيله قمت ببعض التعديلات وهي كالتالي :

كود جملة ا لاتصال لديك كان :

كود :

 Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\saad.mdb")

وقد قمت بتعديله ليشير الى مسار حفظ ملف قاعدة البيانات 

كود :

 Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\saad1\saad1\saad\saad.mdb")

لانني قمت بتنزيل مشروعك على قسم D:\ في جهازي


كود البحث لديك كان

كود :

 Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        Try
            Dim dt As New DataTable
            Dim da As New OleDbDataAdapter
            If conn.State = ConnectionState.Closed Then

                conn.Open()
            End If
            da = New OleDbDataAdapter("select * from T1 where الاسم و اللقب like '%" & TextBox9.Text & "%'", conn)
[size=small][font=Monaco, Consolas, Courier, monospace]       Table1DataGridView.DataSource = dt.DefaultView[/font][/size]
    da.Fill(dt)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        ' conn.Open()
        'Try
        'Dim cmdselect As New OleDbCommand
        'cmdselect.Connection = conn
        'cmdselect.CommandText = " select from Table1 where الاسم و اللقب = '%" + TextBox2.Text + "%' OR Number = '" + TextBox1.Text + "'"
        'Dim re As OleDbDataReader
        're = cmdselect.ExecuteReader
        'If re.Read Then
        'TextBox1.Text = re(0).ToString
        'TextBox1.Text = re(1).ToString
        'TextBox1.Text = re(2).ToString
        'TextBox1.Text = re(3).ToString
        'TextBox1.Text = re(4).ToString
        'TextBox1.Text = re(5).ToString
        'TextBox1.Text = re(6).ToString
        'TextBox1.Text = re(7).ToString
        'Else
        'MsgBox(" عقوا الاسم او الرقم غير موجود ")
        'End If

        'Catch ex As Exception
        'MsgBox(ex.Message.ToString)
        'End Try
        'conn.Close()
    End Sub

وقد عدلته الى التالي:

كود :

 Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        Try
            Dim dt As New DataTable
            Dim da As New OleDbDataAdapter
            If conn.State = ConnectionState.Closed Then

                conn.Open()
            End If
            da = New OleDbDataAdapter("select * from " & Me.SaadDataSet.Table1.TableName & " where [الاسم و اللقب] like '%" & TextBox9.Text & "%';", conn)
            da.Fill(dt)
            Table1DataGridView.DataSource = dt.DefaultView
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        ' conn.Open()
        'Try
        'Dim cmdselect As New OleDbCommand
        'cmdselect.Connection = conn
        'cmdselect.CommandText = " select from Table1 where الاسم و اللقب = '%" + TextBox2.Text + "%' OR Number = '" + TextBox1.Text + "'"
        'Dim re As OleDbDataReader
        're = cmdselect.ExecuteReader
        'If re.Read Then
        'TextBox1.Text = re(0).ToString
        'TextBox1.Text = re(1).ToString
        'TextBox1.Text = re(2).ToString
        'TextBox1.Text = re(3).ToString
        'TextBox1.Text = re(4).ToString
        'TextBox1.Text = re(5).ToString
        'TextBox1.Text = re(6).ToString
        'TextBox1.Text = re(7).ToString
        'Else
        'MsgBox(" عقوا الاسم او الرقم غير موجود ")
        'End If

        'Catch ex As Exception
        'MsgBox(ex.Message.ToString)
        'End Try
        'conn.Close()
    End Sub

باختصار
تم تغيير جملة الاتصال
 وتم وضع الحقل المسمى الاسم واللقب  بين قوسين [] 

اتمنى يكون هذا الحل صحيح