Imports System.IO
Imports System.Data
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Dt As New Data.DataTable 'Da ist jetzt natürlich nix drin und es 
        ' sind auch keine Spaltennamen vorhanden!!!!!
        'Das hast du ja aber vermutlich bereits selbst erstellt
        Dim i, a As Integer
        Dim zeile As String = ""
 
 
        Using sw As StreamWriter = New StreamWriter("C:\Temp\test.txt", False, _
          System.Text.Encoding.Default)
            'Deine Überschriften in die Datei schreiben
            For i = 0 To Dt.Columns.Count - 1
                If i = 0 Then
                    zeile = Dt.Columns(i).ColumnName.ToString
                Else
                    zeile = zeile & vbTab & Dt.Columns(i).ColumnName.ToString
                End If
            Next
 
            sw.WriteLine(zeile)
 
            'Den Datatable Inhalt reinschreiben:
            For i = 0 To Dt.Rows.Count - 1
                zeile = ""
                For a = 0 To Dt.Columns.Count - 1
                    If a = 0 Then
                        zeile = Dt.Rows(i).Item(a)
                    Else
                        zeile = zeile & vbTab & Dt.Rows(i).Item(a)
                    End If
                Next
                sw.WriteLine(zeile)
            Next
        End Using
 
    End Sub
End Class