Decimales datareport

[carnero]

HOLA QUE TAL ESTOY TRATANDO DE MOSTRAR EN UN DATA REPORT UN VALOR POR EJEMPLO 3,74 Y NO LO LOGRO.

Código vb:

With rst.Fields
        .Append "PESO", adDecimal
    End With
   
With rst2
f = 0
     For f = 0 To UBound(F)
        .AddNew Array("PESO"), _
                Array(" " & F(f, 0) & "")<---- cargo los valores al rst, que son valores como 3,74
      Next
End With
  Set DataReport1.DataSource = rst2
 

el valor que me muestra el datareport es 374

espero me entiendan y me puedan ayudar gracias