il comando corretto è questo


PreVen = RsAnaProd.Fields("PrezzoVendita").Value
PreVen = Format(PreVen, "#,##0.00#")
txtPrezzoVen.Text = PreVen