Private Sub Anzeige()
Dim rs as New Adodb.Recordset
Dim s as String
 
s = "Select Betrag From Tabelle"
 
With DataGrid
   .ColumnAdd "Betrag", "Betrag", , , , , , , SORT_CURRENCY
 
   rs.open s,connection,adopendynamic
   Set .Recordset = rs
 
   .Columns("Betrag").DisplayFormat = "#,###,##0.00"
   .Refresh
End With
 
rs.Close
Set rs = Nothing
End Sub
 
korrektes ERGEBNIS im Grid:
16,25
-3,69
4,00
936,60
-45,88

Private Sub Export()
Dim bResult as Boolean
Dim sFile as String
 
sFile = "C:\Test.csv"
 
bResult = DataGrid.DoExport(sFile, EXPORT_CSV, , EXPORT_HEADER_CAPTIONS, _
  EXPORT_FIELD_DISPLAYVALUE, , , ";")
 
End Sub
 
falsches ERGEBNIS IN DER CSV-DATEI:
16.25
-3.69
4.00
936.60
-45.88