''' <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)
		ExportDataTable = False
		Try
			For i As Integer = 0 To dt.Columns.Count-1
				sw.Write(dt.Columns(i).Caption)
				If i = dt.Columns.Count-1 Then
					sw.Write(Environment.NewLine)
				Else
					sw.Write(Seperator)
				End If
			Next
			For Each r As Data.DataRow In dt.Rows
				For i As Integer = 0 To dt.Columns.Count-1
					sw.Write(r(i))
					If i = dt.Columns.Count-1 Then
						sw.Write(Environment.NewLine)
					Else
						sw.Write(Seperator)
					End If
				Next
			Next
			sw.Flush
			ExportDataTable = True
		Catch ex As System.Exception
 
		Finally
			sw.Close
		End Try
		Return ExportDataTable
	End Function