01.Private Sub btnsearch_Click(sender As Object, e As EventArgs) Handles btnsearch.Click
02. Try
03. Dim i As Integer = CType((From x In frmChart_Of_Acc_List.dgvchart.Rows Where CType(x, DataGridViewRow).Cells(0).Value.Equals(txtsearch.Text)).First, DataGridViewRow).Index
04. frmChart_Of_Acc_List.dgvchart.CurrentCell = frmChart_Of_Acc_List.dgvchart.Rows(i).Cells(0)
05. frmChart_Of_Acc_List.dgvchart.BeginEdit(False)
06. Me.Close()
07. End If
08.
09. Catch ex As Exception
10. MsgBox("No match found")
11.
12. End Try
13. End Sub
