problema al insertar datos en tabla access

[Ka0stj]

Verifica que es lo que trae el arreglo Datos, es decir, Datos(0), Datos(1), Datos(2) ya que ese error que te marca es porque trata de convertir a double un valor que no puede.

Prueba con el siguiente código:

Dim Descripcion As String
Dim Cantidad As Integer
Dim Contador As Integer = 0
Dim Precio As Double
Dim Delimitador() As Char = New Char() {"x", "="}

Dim Datos As String()

For Each lineas In TextBox1.Lines

Datos = lineas.Split(Delimitador)

If Contador < TextBox1.Lines.Length - 1 Then
Cantidad = Integer.Parse(Datos(0))
Descripcion = Datos(1)
Precio = Double.Parse(Datos(2))
'-- Aqui haces el INSERT
End If

Contador = Contador + 1

Next

Ahora bien con respecto a que te inserta 2 veces utiliza breakpoints para ver porque lo hace ya que de la forma en que te pongo el código procesa exactamente la información que tiene el textbox con la siguiente estructura:

2 x Big Mac = 100
1 x Hot Dog = 20
3 x Tortas = 50
5 x Tacos = 40
2 x Refresco = 30