selCmd = "Select * From ARZTKENN Where SYSID = " & sID & " Order By Kennzei"
Dim _daKenn As New OdbcDataAdapter(selCmd, _cnML)
Dim _dtKenn As New DataTable
_daKenn.Fill(_dtKenn)
Dim cRow As DataRow
_dtKenn.Select("Kennzei".ToString.Trim = "")
For Each cRow In _dtKenn.Rows
      cRow("Kennzei") = "k"
Next