Dim dt As DataTable = DsHoerbuecher1.Tables("DtHoerbuecher")
 
        Dim _row As DataRow
        For Each _row In dt.Rows
            For Each _col As DataColumn In dt.Columns
                MsgBox(_row(_col.ColumnName).ToString)
            Next
        Next