John,

Seeing it again now I think that you are after this as the sample bellow?

It is very fast made, it is saterdaynight here you know

Cor

\\\
Private dtVBreg As DataTable

Private Sub Form1_Load(ByVal sender As Object, _
       ByVal e As System.EventArgs) Handles MyBase.Load
       CreateTables()
       Dim dv As New DataView(dtVBreg)
       DataGrid1.DataSource = dv
       Dim cm As CurrencyManager
       cm = CType(BindingContext(dv), CurrencyManager)
       dv.Sort = "Name,Country"
       Dim findObject(1) As Object
       findObject(0) = "Terry Burns"
       findObject(1) = "EU"
       cm.Position = dv.Find(findObject)
       DataGrid1.Select(cm.Position)
End Sub
Private Sub CreateTables()
       Dim drel As DataRelation
       dtVBreg = New DataTable("Persons")
       dtVBreg.Columns.Add("Name")
       dtVBreg.Columns.Add("Country")
       For i As Integer = 0 To 7
           dtVBreg.Rows.Add(dtVBreg.NewRow)
       Next
       dtVBreg.Rows(0).ItemArray = New Object() _
             {"Herfried K. Wagner", "EU"}
       dtVBreg.Rows(1).ItemArray = New Object() _
             {"Ken Tucker", "US"}
       dtVBreg.Rows(2).ItemArray = New Object() _
              {"CJ Taylor", "US"}
       dtVBreg.Rows(3).ItemArray = New Object() _
               {"Jay B Harlow", "US"}
       dtVBreg.Rows(4).ItemArray = New Object() _
               {"Terry Burns", "EU"}
       dtVBreg.Rows(5).ItemArray = New Object() _
               {"Tom Shelton", "US"}
       dtVBreg.Rows(6).ItemArray = New Object() _
               {"Cor Ligthert", "EU"}
   End Sub
///

"John Hernry" <john.henry@sasktel.com>
...