Private Sub Grid1_RowLoaded(ByVAl nRow As Long, Item As sevDataGrid.ListItem)
  With Grid1.Recordset
    Item.CellText(Spalte) = FormatNumber(.Fields("Betrag").Value) & " US$"
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de