SQL = SQL_erzeugen
AendDatei = "temp_" & Benutzer & "_aend"
Set Rec_Aend = New Recordset
Rec_Aend.Open SQL, DB, adOpenDynamic, adLockOptimistic
 
Rec_Aend!doa_status = SQL_RTrim(Rec_Aend!doa_status)
Rec_Aend!doa_feld = SQL_RTrim(Rec_Aend!doa_feld)
 
f1 = FreeFile
Open psDIWAPfad & "ftrans\export\" & AendDatei For Binary As #f1
Do While Not Rec_Aend.EOF
    Vari = Rec_Aend.GetString(adClipString, , ";", vbLf)
    Put #f1, , Vari
Loop
Close #f1
Rec_Aend.Close

Public Function SQL_RTrim(Text As String) As String
Text = RTrim(Text)
If Len(Text) = 0 Then
    Text = " "
End If
SQL_RTrim = Text
End Function