class MyGrid
inherits DataGrid
.....

'выделение строки по заданому DataRow
    Public Sub SelectRow(ByVal Row As DataRow)
        If Row Is Nothing Then Exit Sub

        Try
            Dim dt As DataTable = CType(Me.DataSource, DataTable)
            If dt Is Nothing Then Exit Sub
            Dim dv As DataView = Me.GetView '  New DataView(dt)
            Dim tmp() As DataRow
            'создаем временный масив строк для поиска в нем даной
            tmp = dt.Select(dv.RowFilter, dv.Sort)
            'находим индекс строки
            Dim ind% = tmp.IndexOf(tmp, Row)
            If ind <> - 1  Then
                If Me.CurrentRowIndex <> - 1  Then
                    'снимаем выделение с текущей сторки
                    UnSelect(CurrentRowIndex)
                End If
                'если строка найдена выделяем ее
                Me.Select(ind)
                CurrentRowIndex = ind
            End If
        Catch ex As Exception
            Utils.DumpError(ex)
        End Try

    End Sub
end class