While taking record from the record set numeric value automatically comes as roundoff value

Hi Experts,

strquery = "select Rate from ORTT where currency = '" & test & "' order by RateDate desc"

rs = oGFun.DoQuery(strquery)

Dim test1 As Integer = Val(rs.Fields.Item("Rate").value)

oDBDSHeader.SetValue("U_price", 0, rs.Fields.Item("Rate").Value)

while i am using the above coding for getting the Rate= 55.50 its automatically converted into 55 rs.

please help.

Regards,

Robert.L