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.Text = (cCol.ColumnName & " = " & cRow( _
                  cCol.Ordinal))
            Next
            auswertung.TextBox1.Text = _
              "--------------------------------------------------------------"
        Next