Ieri ho trovato questo codice...

codice:
 'imposto la fonte dati
    Set DataGrid1.DataSource = Recdati
    'personalizzo le colonne
    DataGrid1.Columns(0).Width = 0
    DataGrid1.Columns(1).Width = 1400
    DataGrid1.Columns(2).Width = 1400
    DataGrid1.Columns(3).Width = 1400
    'oggetto per la gestione del formato
    Dim objFormat As StdDataFormat
    Set objFormat = New StdDataFormat
    objFormat.Type = fmtBoolean
    objFormat.TrueValue = "Si"
    objFormat.FalseValue = "No"
    objFormat.NullValue = "No"
    'imposto il formato
    Set DataGrid1.Columns(3).DataFormat = objFormat
Però come si può notare funziona per i valori booleani, per i tipi valuta non so che valore dare ad objFormat.Type