QUERY COM PROBLEMAS PARA CARREGAR DADOS TEXTBOX

MHDS23 01/08/2017 04:47:35
#475547

Boa noite a todos
estou precisando de uma grande ajuda!!!

estou realizando uma pequisa de dados no access onde o campo esta formatado em moeda, o valor esta sendo salvo corretamente, porém ao realizar a consulta pra trazer o valor numa textbox, o valor esta vindo a menor

em anexo o que esta ocorrendo ao executar a função a baixo


[ô]função que preenche o textbox
Private Sub exibeDadosorcamento(ByVal nome As String)
[ô] abre a conexao
con.Open()
[ô] cria um command para esta conexao
Dim cmd As New OleDb.OleDbCommand([Ô]SELECT coletor, dt_envio_manutencao, dt_receb_orcamento, valor_orcamento, status_orcamento, dt_receb_coletor_assist, observacoes FROM tb_orcamentos WHERE coletor=? [Ô], con)
[ô] Cria uma consulta paremetrizada
cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]coletor[Ô], nome))
[ô] executa a consulta.
Dim dr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.SingleRow)
[ô] exibe o resultado nas caixas de texto
If dr.HasRows Then
dr.Read()
mask_data_envio.Text = dr.Item([Ô]dt_envio_manutencao[Ô]).ToString
mask_dt_orc.Text = dr.Item([Ô]dt_receb_orcamento[Ô]).ToString
TextBox2.Text = dr.Item([Ô]valor_orcamento[Ô]).ToString.ToString
ComboBox1.Text = dr.Item([Ô]status_orcamento[Ô]).ToString
mas_dt_rec_manut.Text = dr.Item([Ô]dt_receb_coletor_assist[Ô]).ToString
txt_observacoes.Text = dr.Item([Ô]observacoes[Ô]).ToString

Else
[ô]limpa as caixas de texto
For Each ctl As Control In Me.Controls
If TypeOf ctl Is TextBox Then ctl.Text = [Ô][Ô]
Next ctl
End If
[ô] fecha a conexao
con.Close()
End Sub