thnx man that reall helped me in
vb.net
here is the code for others
If txtfind.Text.Trim = "" Then
Exit Sub
End If
Dim objTimeSheets As DataSet
objTimeSheets = New TimeSheets
'Attempt to fill the temporary dataset.
Me.FillDataSet(objTimeSheets)
Dim x As Integer
Dim cm As CurrencyManager
dim dg as datagid
''its better to ccreate the datagrid at design time
dg.DataSource = Nothing
dg.DataSource = objTimeSheets
Dim dv As DataView = New DataView(objTimeSheets.Tables("TimeSheet"))
''sort the view here
dv.Sort = "TimeSheetNo"
''use the currency manager
cm = CType(Me.BindingContext(dv), CurrencyManager)
x = 0
x = dv.Find(txtfind.Text.Trim)
If (x >= 0) Then
MsgBox(x)
Else
MsgBox("Values Not Found,Try Again!", MsgBoxStyle.Information)
Exit Sub
End If