در نهایت انجام شد
Private cm As CurrencyManager
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'
Dim dv As DataView
SqlDataAdapter1.Fill(DataSet1, "Test")
dv = DataSet1.Tables("test").DefaultView
DataGrid1.DataSource = dv
cm = CType(Me.BindingContext(dv), CurrencyManager)
'
End Sub
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
'
Dim row() As DataRow
Dim fieldNameToSearch As String = "TestField"
With DataSet1.Tables("test")
row = .Select(fieldNameToSearch & " Like '" & InputBox("") & "%'")
If Not row Is Nothing Then
With .DefaultView
.Sort = fieldNameToSearch
cm.Position = .Find(row(0).Item(fieldNameToSearc h))
End With
End If
End With
'
End Sub