Hi everybody. I am having problems with this code. It is truncating what ever is intered into this list box and cutting off all the 0's. Any ideas on how to fix this?

'Loading rates
Set m_oRecord = m_oConnect.GetRate

'As long as we have something...
cbStartRate.Text = Format(cbStartRate.Text, "0.000")
While Not m_oRecord.EOF
cbStartRate.AddItem m_oRecord.Fields(0).Value
m_oRecord.MoveNext
Wend

Thanks a bunch.