Public Function ExportFiles() As Boolean
 
    Dim tSQL As String
    Dim sw As StreamWriter
    Dim strLine As String
    Dim intLoop As Integer
    Dim dra As OleDb.OleDbDataReader
 
    Try
      tSQL = "SELECT g.GEG_ZKBNR, g.GEG_TEXTS, g.GEG_ZKBRATING," & _
        "lt.LIMTYP_TEXTS, wrg.CUR_ISO, l.LIM_LIMIT " & vbCrLf & _
              "FROM   LIM_GEG g " & vbCrLf & _
              "      ,LIM_LIM l " & vbCrLf & _
              "      ,LIM_LIMTYP lt " & vbCrLf & _
              "      ,vegasqu.cur wrg " & vbCrLf & _
              "WHERE  l.LIM_geg_PKEY = g.geg_pkey  		  -- Join Lim und Geg  " & _
              vbCrLf & _
              "  AND  l.LIM_LIMTYP = lt.LIMTYP_PKEY   	-- Join Lim und Limtyp " _
              & vbCrLf & _
              "  AND  l.LIM_CURRENCY = wrg.CUR_NUMBER		-- Join Lim und Lux-Wrg" & _
              "" & vbCrLf & _
              "  AND  g.GEG_BRANCH = 20				          -- Nur Branch 20 " & _
              vbCrLf & _
              "  AND  (geg_pkey IN (12,22)					    -- Bankepl und OERK Lux " & _
              vbCrLf & _
              "   OR   geg_cid IN ( 12,22)) " & vbCrLf & _
              "  AND  lt.LIMTYP_PKEY NOT IN (6,7)			  -- kein Forex und " & _
              vbCrLf & _
              "  AND  lt.limtyp_cid NOT IN (6,7)			  -- kein Treuhand " & _
              vbCrLf & _
              "  AND  g.geg_active = 1		 				      -- Aktive Geg " & vbCrLf & _
              "  AND  l.lim_active = 1						      -- Aktive Lim " & vbCrLf & _
              "  ORDER BY g.GEG_ZKBNR"
 
      ' parse sql-statement
      dbio.dbSQLCommand = SQLparser(tSQL)
 
      If dbio.executeQuery(dra).Equals(True) Then
        ' write header
        strLine = "GEG_ZKBNR; GEG_TEXTS; GEG_ZKBRATING; LIMTYP_TEXTS; CUR_ISO;" & _
          "LIM_LIMIT;" & vbCrLf
        ' go through the recordset
        While dra.Read
          ' go through the record
          For intLoop = 0 To dra.FieldCount - 1
            strLine = strLine & dra.Item(intLoop).ToString() & ";"
          Next intLoop
          strLine = strLine & vbCrLf
        End While
 
        ' write the string
        sw = File.AppendText(strDefExportDir & Format(Now(), "yyyyMMddHHmm") & _
          "Export.txt")
        sw.Write(strLine)
        sw.Flush()
        sw.Close()
 
        ' reset var strLine
        strLine = ""
        ' close datareader
        dra.Close()
      End If
 
      Return True
 
    Catch ex As Exception
      ' close datareader
      dra.Close()
      ' reset var strLine
      strLine = ""
      Return False
    End Try
 
  End Function