Dim dt As DataTable = main.AvvDataSet.Tables("avv")
        For Each cRow As DataRow In dt.Rows
            For Each cCol As DataColumn In dt.Columns
                auswertung.TextBox1.AppendText(cCol.ColumnName & " = " & cRow( _
                  cCol.Ordinal) & vbCrLf)
 
            Next
            auswertung.TextBox1.AppendText("-----------------------------" & _
              vbCrLf)
        Next