كيف اقوم بالبحث عن سجل عن طريق الرقم

هل من مساعدة بصراحة انا حاولت كثيرا لكن دون اى جدوى احتاج الى المساعدة كتب كود صغير لكن

وهو عبارة عن Textbox أقوم بأدخال الرقم وهو يقوم بأعطاء الى النتائج البحث فى داتا جريد

برجاء المساعدة :rolleyes:

هذا الكود الذى كتبتة بالزر

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ConditionCriteria As Boolean = True
        DataSet11.Clear()
        If TextBox1.Text <> "" Then
            OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * FROM الطلاب Where رقم الطالب like '" & TextBox1.Text & "'"
        Else
            MessageBox.Show("هذا الطالب غير موجود", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ConditionCriteria = False
            TextBox1.Focus()
        End If
        If ConditionCriteria = True Then
            OleDbDataAdapter1.Fill(DataSet11, "رقم الطالب")
        End If

        DataSet11.Tables(0).Columns(0).ColumnName = "رقم الطالب "
        DataSet11.Tables(0).Columns(1).ColumnName = "رقم القسم "
        DataSet11.Tables(0).Columns(1).ColumnName = "رقم الفرقة "
        DataSet11.Tables(0).Columns(1).ColumnName = "رقم اللجنة "
        DataSet11.Tables(0).Columns(1).ColumnName = "أسم الطالب "
        DataSet11.Tables(0).Columns(1).ColumnName = "عنوانة "
        DataSet11.Tables(0).Columns(1).ColumnName = "تاريخ الميلاد "
        Me.DataGrid1.PreferredColumnWidth = Me.DataGrid1.ClientSize.Width / 7
        Me.DataGrid1.DataSource = DataSet11.Tables(0)
    End Sub

وهذا كود موجود بالفورم

      OleDbConnection1.ConnectionString = "Provider=Microsoft.jet.oleDB.4.0;Data Source=" & Application.StartupPath & "\db1.mdb;"

        Try
            OleDbConnection1.Open()
            DataSet11.Clear()
            OleDbDataAdapter1.Fill(DataSet11)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            Me.OleDbConnection1.Close()
        End Try
    End Sub