problema al insertar datos en tabla access

[cRz87]

Mira yo lo tengo así:

Dim Descripcio As String
Dim quantitat As Integer
Dim preu As Double
Dim Delimitador() As Char = New Char() {"x", "="}

Dim dades As String()

For Each lineas In TBpantalla.Lines

dades = lineas.Split(Delimitador)
linia_comanda = linia_comanda + 1
quantitat = Integer.Parse(dades(0))
Descripcio = dades(1)
preu = Double.Parse(dades(2))
inserta_comanda()
Next

Me sigue dando error en lo que inserta, si escribo 3 linias añade 3 veces la ultima linea.
Además me inserta los datos bien y cuando deberia seguir con el siguiente cliente es cuando me da el error del formato de entrada, mientras los inserta no da ninguno.


Y otra cosa ya puestos, como podría hacer usando este código para que la cantidad de cada producto la multiplicara por el precio en cada linia y luego sumara el total de cada una? no se si me explico:

Que hiciera esto:

2 x HOT DOG = 2,10 -------- que multiplique 2*2,10
3x BIGMAC = 3,40 --------- que multiplique 3*3,40
----------
TOTAL en txttotal.text