Using sw As IO.StreamWriter = New IO.StreamWriter(Dateiname, False, _
              System.Text.Encoding.Default)
                SDR = New SqlCommand(SQL, sdc).ExecuteReader
                For T = 0 To SDR.FieldCount - 1
                    sw.Write(SDR.GetName(T) & ";")
                Next T
                sw.WriteLine()
 
                Do While SDR.Read
                    For T = 0 To SDR.FieldCount - 1
                        sw.Write(Replace(Replace(SDR(T).ToString, ";", ","), _
                          vbCrLf, " ") & ";")
                    Next T
                    sw.WriteLine()
                Loop
                SDR.Close()
                sw.Close()
                sw.Dispose()
            End Using

 
                If System.IO.Path.GetFileName( _
                  FileUpload1.PostedFile.FileName).EndsWith(".csv", _
                  StringComparison.CurrentCultureIgnoreCase) = True Then
                    'File upload
                    Try
                        If System.IO.File.Exists(Dateiname) = True Then _
                          System.IO.File.Delete(Dateiname)
                        FileUpload1.PostedFile.SaveAs(Dateiname)
                        Meldung.InnerHtml = tools.Sprache("Die Datei ### wurde" & _
                          "erfolgreich übertragen.").Replace("###", _
                          System.IO.Path.GetFileName( _
                          FileUpload1.PostedFile.FileName)) & "<br /><br />"
                    Catch ex As Exception
                        Meldung.InnerHtml = tools.Sprache("Fehler bei speichern" & _
                          "der Datei") & " " & Dateiname & "<br />" & _
                          ex.Message & "<br /><br />"
                        Exit Sub
                    End Try
'...

Joachim