Oracle Daten in ein csv-File importieren

[franz]

Hi Leute!

Mit folgendem Script importiere ich Oracle -Daten in ein csv-File
Problem: das Ergebnis sollte so 582;"02-JAN-2002" aussehen, aber mit meinen Script erhalte ich dieses Ergebnis: "582;02-JAN-2002"
Wie bekomme ich das 1.Hochkomma weg und vor das Datum??? Ich habe auch schon versucht sie wegzuschneiden(siehe Script) funkt aber auch nicht!

Script:Option Explicit

Public Cn As New adodb.Connection
Public Rs As New adodb.Recordset

Public Sql As String

Sub Main() 'Betriebsnummern für AMA-Tierdatenanforderung

Dim fno As Integer, i As Integer, hilfe As Integer, ausgabe As String
ausgabe = ""

Cn.CursorLocation = adUseClient
Cn.Open "PROVIDER=MSDASQL;dsn=i3prod;uid=rz;pwd=hgedv;"

fno = FreeFile
Open "C:\MyFile.csv" For Output As #fno
Sql = "SELECT to_char(betrnr) betrnr,to_char(stichtag,'DD-MON-YYYY') stichtag FROM ama.ama_betriebe_tier_2002"
Rs.Open Sql, Cn

'eigentliche Prozedur
 Do While Not Rs.EOF
     ausgabe = Rs!betrnr + ";" + Rs!stichtag
     hilfe = Len(ausgabe)
     ausgabe = Mid(ausgabe, 1, hilfe)
     Write #fno, ausgabe

Rs.MoveNext
 Loop

Close #fno