....
        _cnML = New OdbcConnection("FILEDSN=c:\ml\ml_dbase;DefaultDir=c:\ML;")
        selCmd = "Select * From ARZTKENN"
        Dim _daKenn As New OdbcDataAdapter(selCmd, _cnML)
        _cnML.Close()
        Dim _dtKenn As New DataTable
        _daKenn.Fill(_dtKenn)
        lA = New ArrayList
        If _dtKenn.Rows.Count = 0 Then Return lA
        Dim cRow As DataRow
        For Each cRow In _dtKenn.Rows
            If cRow("Abrech").ToString.Trim <> "" Then
                If cRow("SysID").ToString = sID Then
                    If cRow("Kennzei").ToString.Trim = "" Then cRow("Kennzei") _
                      = "k"
                    lA.Add(cRow)
                End If
            End If
        Next
        Dim SortByColumn As DataColumn = _dtKenn.Columns(1)
        lA.Sort(New MyComparer(SortByColumn))
        Return lA         'in lA brauche ich das sortierte Array
    End Function
 
Public Class MyComparer
    Implements IComparer
    Private _ByColumn As DataColumn
 
    Public Sub New(ByVal SortByColumn As DataColumn)
        Me._ByColumn = SortByColumn
    End Sub
 
    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
 
End Class