Credo che il consiglio dato da stegtw non sia tanto ortodosso. Eliminando l'OPTION EXPLICIT e la dichiarazione della variabile PreVen risolvi sì, ma in un modo abbastanza "empirico" e deleterio per il debug del programma. In pratica, senza togliere l'OPTION EXPLICIT, bastava dichiarare
codice:
Dim PreVen As Variant
e l'effetto è lo stesso di quello consigliato da stegtw. In ogni caso anche questa soluzione non è consigliabile, il tipo Variant dovrebbe essere usato il meno possibile!

Il problema, riferendomi al codice originale:
codice:
Dim PreVen As Double
PreVen = RsAnaProd.Fields("PrezzoVendita").Value
PreVen = Format(PreVen, "#,##0.00")
txtPrezzoVen.Text = PreVen
era nella terza riga, dove la funzione Format restituisce una stringa (per esempio "500,00") che poi viene riconvertita in double quando viene assegnata a PreVen. Un metodo più corretto è come quello che ha proposto vitren54, così:
codice:
Dim PreVen As Double
PreVen = RsAnaProd.Fields("PrezzoVendita").Value
txtPrezzoVen.Text = Format(PreVen, "#,##0.00")