Dim F As Integer
Dim i As Integer
Dim nCount As Integer
 
' Datei erstellen
F = FreeFile
Open "Datei.csv" For Output As #F
 
With oRecordset
  ' Anzahl Felder
  nCount = .Fields.Count - 1
 
  ' alle Datensätze durchlaufen
  .MoveFirst
  Do
    ' Felder in Datei schreiben
    For i = 0 To nCount
      Print #F, .Fields(i).Value & IIf(i < nCount, ";", vbCrLf);
    Next i
    .MoveNext
  Loop Until .Eof
End With
 
' Datei schließen
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de