Formatar valores no DBGRID

[fcrusco 0]

O campo no bando de dados está como currency;Mas qdo carrego o valor no DBGRID não traz o R$, como formato "via código"?código: 'Carrega e formata grid "Adquirido de:" With Adodc_Adquirido .ConnectionString = "" .CommandType = adCmdText .RecordSource = "SELECT tbTransacao.TRA_ID, tbClientes.CLI_NOM as Nome, tbTransacao.TRA_DTA_HRA as Data_Hora, tbTransacao.TRA_VLR as Valor" & _ " FROM tbClientes INNER JOIN tbTransacao ON tbClientes.CLI_ID = tbTransacao.TRA_CLI_ID" & _ " WHERE (((tbTransacao.TRA_FLG)='ADQD') AND ((tbTransacao.TRA_VEI_ID)=" & ID_Veiculo & "))" & _ " ORDER BY tbTransacao.TRA_ID" .Refresh End With With GridAdquirido .Caption = "Histórico - Veículo adquirido de:" .Columns(0).Caption = "" .Columns(0).Width = 0 .Columns(1).Caption = "Nome" .Columns(1).Width = 3000 .Columns(2).Caption = "Data e Hora" .Columns(2).Width = 1400 .Columns(3).Caption = "Valor" .Columns(3).Width = 1200 End With

[lgustavoc 0]

Eu costumo configurar a coluna do DBGrid como ###,##0.00