Nel db Access il campo PrezzoTot è di tipo numerico

Nel codice ho scritto

Dim prezzo As Double
Dim iva As Double
Dim Prezzofinale As double
prezzo = prezzoTextBox.Text
iva = ivaTextBox.Text
Prezzofinale = prezzo + (prezzo * iva / 100)

command.CommandText() = "INSERT INTO Prodotti (CodArt,Prodotto,Prezzo,Disponibilita,iva,Info,Pre zzoTot) values ( '" + codartTextBox.Text + "','" + prodottoTextBox.Text + "','" + prezzoTextBox.Text.Replace("'", "''") + "','" + disponibilitaTextBox.Text.Replace("'", "''") + "','" + ivaTextBox.Text.Replace("'", "''") + "','" + noteTextBox.Text.Replace("'", "''") + "','" + Prezzofinale + "')"

Il problema è su PrezzoFinale che mi restituisce
Cast non valido dalla stringa "INSERT INTO Prodotti (CodArt,Pro" al tipo 'Double'.


Dove sbaglio? Sto uscend pazz