''' <summary>
	''' Exportiert eine DataTable nach CSV
	''' </summary>
	''' <param name="Filename">Der Dateiname inklusive Pfad</param>
	''' <param name="DT">Die DataTable, welche exportiert werden soll</param>
	''' <param name="Seperator">Trennzeichen, default: TABSTOP</param>
	''' <returns>True: kein Fehler, False: Fehler</returns>
	Public Function ExportDataTable(ByVal Filename As String,ByVal DT As _
  Data.DataTable,Optional Seperator As String = chr(9)) As Boolean
		Dim sw As New StreamWriter(Filename, False, System.Text.Encoding.Default)
		dim sb as New System.Text.StringBuilder
		Try
			For Each c As Data.DataColumn In dt.Columns
				sb.Append(c.Caption)
				sb.Append(Seperator)
			Next
			sw.WriteLine(sb.ToString.trimend(Seperator))
			sb.Remove(0,sb.Length)
			For each r as Data.DataRow in dt.Rows
				For Each item As Object In r.ItemArray
					sb.Append(item.ToString)
					sb.Append(Seperator)
				Next
				sw.WriteLine(sb.ToString.trimend(Seperator))
				sb.Remove(0,sb.Length)
			Next
			sw.Flush
			ExportDataTable = True
		Catch ex As System.Exception
			ExportDataTable = False
		Finally
			sb = nothing
			sw.Close
		End Try
		Return ExportDataTable
	End Function