Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
  Implements System.Collections.IComparer.Compare
        Dim r1 As DataRow = DirectCast(x, DataRow)
        Dim r2 As DataRow = DirectCast(y, DataRow)
        If r1(Me._ByColumn).ToString > r2(Me._ByColumn).ToString Then Return 1
        If r1(Me._ByColumn).ToString < r2(Me._ByColumn).ToString Then Return -1
        Return 0
End Function