E infatti funziona

Ora ho un'altra domanda.
Quando inserisco i dati nel db(access) c'è l'errore della "," (access legge il ".", mentre vb la ","), perciò uso il replace:
codice:
txtPrezzoAcq.Text = Replace(txtPrezzoAcq.Text, ".", ",")
RsAnaProd("PrezzoAcquisto") = txtPrezzoAcq
il problema è che così da continua ad aggiungere "00" sia se uso la "," sia se uso il "."
Risultato che il valore 120 diventa 1.2000,00
In ogni caso aggiunge 00 alla fine