منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

اريد البحث عن طريق خانة  رقم 4  من اليمين
استخدم برنامج فيجوال بيسك 2010
 قاعدة البيانات 
sql 2019
===============================================
Public Class Class1
  Public Function number_num(ByVal Full_Name As String) As DataTable
        Dim CON As New Class1
        Dim DT As New DataTable
        DT.Clear()
     DT = CON.SELECT_TXT("select * from P_Pension where PensionNo like '%" & Full_Name & "' order by  PensionNo ")
        Return DT
    End Function
End Class
================================================
    Private Sub Button1_Click(ByVal sender As system.Object, ByVal e As system.EventArgs) Handles Button1.Click
        Try
        Dim count_ As Integer = 0
        Dim dt As New DataTable
        dt.Clear()
        dt = Class1_.number_num(TextBox5.Text)
        If dt.Rows.Count > 0 Then
            DGV.RowCount = dt.Rows.Count
            For i As Integer = 0 To dt.Rows.Count - 1
                DGV.Rows(count_).Cells(0).Value = dt.Rows(i)(0).ToString()
                DGV.Rows(count_).Cells(1).Value = dt.Rows(i)(1).ToString()
                DGV.Rows(count_).Cells(2).Value = dt.Rows(i)(2).ToString()
                DGV.Rows(count_).Cells(3).Value = dt.Rows(i)(3).ToString()
                count_ = count_ + 1
                TextBox1.Text = DGV.Rows.Count
            Next
        Else
            DGV.Rows.Clear()
                MessageBox.Show("  لا توجد بيانات  ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception

        End Try
    End Sub