Private Sub SqlCon()
        Dim fso = CreateObject("Scripting.FileSystemObject")
        Dim MyFile = fso.CreateTextFile("\\FILESERVER\Logs\" & Date.Today & "-" _
          & TimeOfDay.Hour & "-" & TimeOfDay.Minute & ".txt", True)
        Dim connString As String = "CONNECTION STRING HERE"
        Dim conn As New SqlConnection(connString)
        conn.Open()
        Dim cmdString As String = "SELECT * FROM BLABLA"
        Dim cmd As New SqlCommand(cmdString, conn)
        Dim reader As SqlDataReader = cmd.ExecuteReader()
 
        'Hier eine Schleife mit der die Ergebnisse in die Textdatei geschrieben 
        ' wird, aber wie?
        MyFile.Writeline(reader.Item("SPALTE HIER")) 'wie mach ich das?
        'Ergebnisse in Textfile Ende 
 
    End Sub