[omervista]

وعليكم السلام اخي

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

الخطوة الثانية :
اضف هذه الدالة الخاصة في الفورم الخاص بك مع تعديل اسم الداتا قريد فيو وتعديل اسم Label الذي يعرض بيانات السجلات .

اتمنى ان يكون كلامي واضح ...

الكود الاول:

كود :

Private Sub TXT_Search_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXT_Search.TextChanged
       Try
           da = New SqlDataAdapter("SELECT * FROM " & TB_Name & " WHERE " & TB_Col_Name & " LIKE '%" & TXT_Search.Text & "%'", sqlconn)
           dt.Clear()
           da.Fill(dt)
           Me.DataGridView.DataSource = dt
           rowSelection()
           sqlconn.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

حيث ان :
Dim da As New SqlDataAdapter

    Dim dt As New DataTable

الكود الثاني:

كود :

Private Sub rowSelection()
       Try
           If Me.DataGridView.RowCount = 0 Then lbl_num_rec.Text = "لا يوجد سجلات" : Exit Sub
           With Me.DataGridView
               .ClearSelection()
               .Rows(x).Selected = True
               .FirstDisplayedScrollingRowIndex = x

               TXT_Name.Text = .Rows(x).Cells(1).Value.ToString
               TXT_Address.Text = .Rows(x).Cells(2).Value.ToString
             
               lbl_num_rec.Text = x + 1 & " من " & dt.Rows.Count
           End With
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

حيث ان :
 Dim x As Integer = 0

اتمنى ان اكون وفقت في مساعدتك اخي


تقبل تحياتي.........