¿Cómo convertir formato moneda registros importados desde base de datos access a VS 2010?

Hola! Soy nueva en esto de vs y bases de datos, mi consulta es por que estoy tratando de hacer una aplicación para mi negocio que contenga, foto del los productos,clave, proveedor, link, nombre, precio, envío comisión, y redondeo, al principio quería que el resultado de la suma del precio y envío comisión y etc me salieran en un textbox sin tener que usar un botón pero no pude hacer así que le puse botón, ahora tengo un problema con el precio por que es la única cantidad que no me aparece en formato moneda y me gustaría de nuevo que sin ponerle algún botón me diera el formato de la moneda al introducir un nuevo precio, y que los precios que ya había introducido en la base de datos me salieran = sin tener que borrarlos si es que se puede, (al probar la aplicación me avienta el precio ya establecido desde la base de datos pero sin el signo $)

por si lo necesitan saber aquí dejo el código que estoy utilizando para que me digan donde ponerlo y que poner, desde ya muchas gracias.

Public Class Form1
 Private Sub Control_itemsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Control_itemsBindingNavigatorSaveItem.Click
 Me.Validate()
 Me.Control_itemsBindingSource.EndEdit()
 Me.TableAdapterManager.UpdateAll(Me.CONTROLDataSet)
 End Sub
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 'TODO: esta línea de código carga datos en la tabla 'CONTROLDataSet.Control_items' Puede moverla o quitarla según sea necesario.
 Me.Control_itemsTableAdapter.Fill(Me.CONTROLDataSet.Control_items)
 End Sub
 Dim subtotal, comicion, total, ptotal As String
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 subtotal = Val(PRECIOTextBox.Text) + Val(ENVIOTextBox.Text)
 SUBTOTALTextBox.Text = FormatCurrency(subtotal)
 comicion = Val(SUBTOTALTextBox.Text * 40) / 100
 COMICIONTextBox.Text = FormatCurrency(comicion)
 total = Val(subtotal) + Val(comicion)
 TOTALTextBox.Text = FormatCurrency(total)
 ptotal = Math.Round(Val(total)) + 1
 PRECIO_TOTALTextBox.Text = FormatCurrency(ptotal)
 End Sub
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 Dim res As DialogResult
 OpenFileDialog1.Filter = "Bitmap files|*.bmp|JPEG files|*.jpg|PNG files|*.png"
 OpenFileDialog1.InitialDirectory = "E:\Sunako Store\CONTROL MERCANCIA\IMAGENES"
 res = OpenFileDialog1.ShowDialog
 If res = Windows.Forms.DialogResult.OK Then
 FOTOPictureBox.Image = Image.FromFile(OpenFileDialog1.FileName)
 End If
 End Sub
 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 SUBTOTALTextBox.Text = ("")
 COMICIONTextBox.Text = ("")
 TOTALTextBox.Text = ("")
 PRECIO_TOTALTextBox.Text = ("")
 End Sub
 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 End
 End Sub
End Class