Probabilmente passando attraverso il campo di appoggio PreVen la prima istruzione lo definisce numerico e da qui la perdita dello zero finale, io proverei con istruzione diretta del tipo

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

Se l'hai già provata non tener conto del suggerimento.

Ciao